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AVERT ISSEMENT 


Nous avons attaché une grande importance au controle des logiciels proposés 
dans cet ouvrage, et tous ont été testés sur CPC 464 et 664, Les listings étant 
reproduits directement par un procédé photo, il ne peut y avoir, à ce niveau, 
d'erreur d'impression. 


Les auteurs restent néammoins ouverts à toute suggestion visant à améliorer 
les logiciels ici proposés. 


Dans le reste de cet ouvrage, sauf indication contraire, nous désignerons 
par CPC, aussi bien le 464 que le 664 ou encore, le 6128 


DROITS DE REPRODUCTION 


Pour se garantir du piratage sous toutes ses formes, incluant la 
reproduction de tout ou partie des logiciels et interfaces décrits dans ce 
livre, les auteurs se réservent tous les droits de commercialisation. En 
conséquence, aucun logiciel, aucune interface (montée ou en kit), ne pourront 
etre commercialisés sans l’autorisation écrite des auteurs et ce, par quelque 
société que ce soit. 


CASSETTES ET DISQUETTES 


Le prix raisonnable des lecteurs de disquettes du système AMSTRAD 
laisse à penser que, en raison du confort d'utilisation et des capacités qu'ils 
apportent, bon nombre des utilisateurs ayant dépassé le sinple stade du jeu en 
sont, ou en seront, équipés. 


Néammoins, ce livre a été écrit dans l'optique de présenter a plus 
totale compatibilité entre les différents AMSTRAD. C'est pourquoi nous glissons 
ici quelques conseils à nos lecteurs ne possédant que le CPC 464 de base. 


Les programmes faisant appel à des fichiers’ extérieurs tels que le 
RTTY (pour ses mémoires) ou le "CONTEST, où encore la *587V°, s'ils sont plus 
faciles à utiliser avec une disquette, n’en sont pas moins exploitables sur 
cassettes. I1 faut simplement s'astreindre à une certaine discipline: les 
programmes sur une cassette, les ‘fichiers’ sur une autre. Tenir à jour une 
petite fiche avec les index compteur est peut-etre fastidieux, mais s’avèrera 
rapidement très utile. 


COMMENTAIRES AU SUJET DES LISTINGS DE CE LIVRE 


Les listings de ce livre sont édités volontairement en 40 colonnes. Ce 
choix a été fait en pensant aux lecteurs qui possèdent un moniteur couleur, sur 
lequel il est extrèmement pénible de travailler longtemps sur des textes en 980 
colonnes. En regardant votre listing, vous avez l'image exacte de ce que 
vous devez voir sur l'écran, 


D'autre part, un signe particulier est parfois utilisé: il s'agit du 
symbole d'élévation à la puissance (flèche montante). Ce symbole est représenté 
sur l'imprimante comme suit 4. Ne vous méprenez pas, vous le trouverez sur la 
meme touche que le sumbole de la livre anglaise... 


Enfin, et toujours pour les possesseurs d'un écran couleur, nous 
suggérons de mettre en début de programme une ligne: 


INK O,13:INK 1,0:BORDER 0 


Ceci aura pour effet d'écrire en noir sur fond gris ce qui nous semble 
plus reposant que le jaune sur fond bleu, 
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ATTENTION : Utilisateurs du CPC 464, lors de l'ouverture de fichiers, 
un bug genant perturbe le fonctionnement de la machine. Vous devrez placer en 
début de programme (si des fichiers y sont manipulés, comme dans ATTY et CONTEST 
car exemple) une ligne : 


numéro OPENOUT *FICTIF* : MEMORY HIMEM-1 : CLOSEGUT 


Ne l'oubliez pas... Ceci ne concerne pas les CPC bb et 6128. 


Les listings désassemblés {ou en "assembleur" commenté) sont fournis 
aux seules fins de documenter le lecteur, [ls ne devront évidemment pas étre 
531515, le langage machine correspondant étant le plus souvent intégré au 
programme BASIC utilisateur sous la forme de DATA’s, 


Des cassettes et disquettes, contenant les logiciels décrits dans cet 
ouvrage seront commercialisées par jes Editions SORACON, Le lecteur pourra se 
les procurer afin d'éviter la saisie des différents Listings. 


Ce livre a été entièrement composé, par les auteurs, à l'aide du 
logiciel de traitement de texte *TASKGRD”, 


INTRODUCTION 


Communiquer est un besoin que nous avons tous... Notre Hobby, où loisir 
pour rester français, qu'il soit simplement l'écoute où l’émission-réception, 
nous conduit à utiliser les techniques les plus récentes, alors pourquoi ne pas 
utiliser l'ordinateur ? 


L'ordinateur est capable de réaliser les taches les plus répétitives, les 
plus astreignantes, sachons en tirer parti... 

Déjà les robots supplantent les hommes dans les usines pour des raisons 
d'efficacité, au prix il est vrai de pertes d'emploi, mais là n'est pas notre 
propos. Partout où la sécurité est de rigueur, l'ordinateur est présent: quidage 
automatique des avions ou des bateaux, controles d'accès, etc... 

L'ordinateur n’a rien de secret pour qui veut bien s’y intéresser et on 
table bien souvent sur notre ignorance en ce domaine pour nous faire avaler les 
pires excuses lors de retards (pas de commentaires...) 

Alors l'ordinateur s'est mis au quotidien: vous pouvez désormais accéder 
aux plus gros d’entre eux grace au réseau téléphonique par l'intermédiaire d'un 
siaple MINITEL. Les banques de données s'ouvrent aux particuliers et meme des 
asateurs y déposent des informations au service d’autres amateurs: éphémérides 
pour la prévision de passage des satellites, infos DX etc... 

Ainsi le micro-ordinateur est arrivé sur votre table, à coté du récepteur 
de trafic: à vous de savoir l'utiliser et c'est là le but de cet ouvrage. Nous 
espérons que, au fil des pages, l'envie vous viendra d'aller plus loin et de 
compléter, de personnaliser, d'améliorer les logiciels que nous vous proposons, 
Notre but sera alors atteint. 


Préparez votre CPC et courage ! 
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PRESENTATION DU CPC 


Souhaitant que cet ouvrage puisse satisfaire autant les programmeurs 
expérimentés, n'ayant pas le temps de concevoir leurs logiciels de 
communication, que les novices désireux de découvrir un nouveau monde, nous 
décrirons, à l'intention de ces derniers, la machine avec un maximum de détails. 
Que les premiers nous pardonnent et passent à la partie "programmes" de ce 
livre. 


Tout travail de programmation nécessite, auparavant, une phase d'analyse 
qui requiert, autant que de bonnes connaissances du langage utilisé, une 
maitrise des possibilités matérielles de la machine. C’est le lien qui existe 
entre le matériel (hardware où "hard') et le logiciel (software où "soft"), 


LE SYSTEME MINIMUM 

Le système minimum de notre machine se compose de l'unité centrale, que 
nous détaillerons, du magnétophone ou/et de la disquette comme mémoire de masse, 
et de l'écran (moniteur) pour la visualisation. 

Dans le cas des applications que nous proposons ici, exception faite 
peut-etre de la télévision d'amateur, il n'est pas nécessaire et..,meme peu 
souhaitable pour les yeux de posséder un moniteur couleur. 

Pour le stockage des programmes, que vous utilisiez des disquettes ou des 
cassettes, il sera bon de prendre quelques précautions et de suivre ces quelques 
conseils : 

- Ne jamais poser vos cassettes et disquettes sur le Haut-Parleur de 
votre récepteur ou près du transformateur de votre alimentation de puissance. 

- Doublez toujours vos sauvegardes de programmes sur des supports 
différents entreposés en des lieux, eux aussi, différents. 

- Manipulez ces disquettes et cassettes avec soin. Ne pas retirer les 
disquettes tant que le moteur est encore en rotation. Rembobinez vos cassettes 
avant de les retirer du magnétophone. 
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- Le magnétophone requiert un minimum d'entretien: nettouage périodique 
des tetes, avec un coton tige imbibé d'alcool dénaturé, et séances de 
démagnétisation, au moyen d’un outil adapté, sont les gages de garantie de 
lectures fiables, 

- Par contre, ne touchez jamais à votre lecteur de disquettes: son 
entretien n'est pas du domaine de l'amateur non outillé, 


LES ATOUTS DU CPC 

Le CPC possède bien des atouts, c'est d'ailleurs la raison probable pour 
laquelle nous l'avons choisi... Qutre son rapport qualité/prix inégalé, cause de 
son énorme succès, le CPC offre du jamais vu dans le domaine des ordinateurs 
familiaux, ne serait-ce que par sa configuration complète. 


- un clavier de bonne qualité, bien que sur le 664 et sur les 
derniers 464 celà ne soit plus vrai, hélas, économies obligent (et ont permis 
une baisse de prix). 


- la possibilité d'afficher des écrans sur 60 colonnes est 
certainement un avantage incontestable, Evidemment ceci se traduit par une image 
bien plus difficile à lire sur les écrans couleur, à cause de leur médiocre 
résolution. Par contre, il n’y a rien à dire sur la configuration monochrome... 


- les interfaces essentielles sont incorporées : CENTRONICS pour 
l'imprimante, où l’on peut tout à la fois contester et regretter le choix des 
concepteurs sur la liaison 7 bits au lieu de 8. Ceci conduit à acquérir, où à 
construire, une interface pour bénéficier des possibilités graphiques de 
l'imprimante, à moins de jongler avec un logiciel spécialisé, Quvrons, à ce 
propos, une parenthèse pour déconseiller l'imprimante DMPI qui, à notre avis, 
offre peu d'avantages en regard de son prix. L'acheteur potentiel aura tout 
intéret à réfléchir avant de choisir et de signer son chèque car, pour 2 à 9300 
Francs de mieux, il pourra trouver des modèles plus séduisants, plus rapides, et 
moins bruyants... D'ailleurs, cette imprimante n'est plus fabriquée : elle est 
remplacée, dans la gamme, par la D2000 offrant davantage de possibilités. 

L'autre interface sera citée ici pour mémoire puisqu'il s'agit de l'entrée 
‘Joystick’, plus destinée aux applications ludiques qu’à celles que nous vous 
proposons dans cet ouvrage. Néammoins, il est possible de s’en servir come 
entrée logique, pour lire des informations, voire des contacts, mais on reste 
tributaire du ’scanning' du clavier puisque la prise ? joystick” y est reliée, 


- le BASIC est extremement complet, ce qui simplifiera la vie du 
programmeur au prix, il est vrai, de pas mal d'heures de travail pour apprendre 
à maitriser toutes ses possibilités: gestion d’interruptions,  fenetrage, 
instructions graphiques, couleurs, et sonores très performantes, 


- enfin, et ce n'est pas un moindre détail, il semblerait que la 
fiabilité de cette machine soit assez bonne si on en juge par le faible taux de 
retour en Service Après Vente. Ceci est du, en grande partie, à une conception 
et une architecture interne saines, 


ARCHITECTURE INTERNE DU CPC 


Le coeur du système est le microprocesseur 7260 (fabriqué par ZILG6), 
vieux cheval qui n'en finit pas de partir en retraite et que l’on donnait pour 
‘dépassé’ il y a déjà deux ans... Pelle lecon ! Il partage le role de vedette 
avec un circuit complexe, qui remplace à lui seul une centaine de circuits 
intégrés, que nous nommerons ULA (Uncommited Logic Array) et qui commande une 
grande partie du système. 


Coté mémoire, nous devrons faire la différence entre la RAM et la ROM. La 
RAM (Random Acces Memory), est la mémoire dans laquelle on peut écrire et lire 
des données. C'est elle qui contiendra vos programmes, l’image vidéo (celle que 
vous voyez sur votre écran), et toutes sortes d'informations, propres au 
système, que nous nommerons abusivement ‘variables’, La ROM (Read Only Memory) 
est une mémoire qui ne peut etre que lue. Elle est programmée en usine et 
contient le BASIC et ce que nous appellerons ‘le système d'exploitation’ {à ne 
pas confondre avec celui du disque), Notre cher CPC contient 64 Kilo-octets {Ko) 
de mémoire vive’ (RAM) et 32 Ko de mémoire ‘morte’ (ROM), répartie en deux 
zones de 16 Ko. Rappelons à nos lecteurs débutants, qu'un Kilo-octet égale 1024 
octets...Les plus chevronnés, en additionnant ces deux valeurs, 64 et 32, 
s’étonneront peut-etre de trouver 96 Kilo-octets, ce qui peut paraitre parado:al 
quand on sait que le 280, comme ses frères à 8 bits ne peut adresser plus de 64 
Ko... Ceci est rendu possible grace à un ingénieux mécanisme logique qui permet 
de valider, à une meme adresse, selon certaines conditions, soit de la RAM, soit 
de la ROM. Les composants utilisés sont, pour la RAM des très classiques 4164, 
mémoires dynamiques de 64 K sur 1 bit. Elles sont donc au nombre de 8 pour 
former les 64 Kilo-actets annoncés. La ROM est constituée par un ‘chip’ unique 
23256 organisée en 32 Kilo eur 8 bits soit 42 Kilo-octets. Ajoutons enfin que la 
mémoire peut etre étendue, en ROM où en RAM, par des extensions externes en 
blocs de 16 ko jusqu’à 252 Ko, Voila un système capable d'évoluer ! 


Le microprocesseur a besoin, pour fonctionner, d’une horloge: sa fréquence 
est de 4 MHz sur le CPC mais la vitesse de travail n'est que de 3,5 Mhz environ 
pour des raisons que nous ne détaillerons pas ici. En fait, le 4 MHz est obtenu 
à partir d’un quartz de 16 MHz qui rythme tout le travail du CPC. C’est l'ULA 
qui recoit ce signal d'horloge issu de l’oscillateur à quartz 16 MHz et qui le 
divise avant d'envoyer le 4 Mhz vers le 280 et du 1 MHz vers le générateur 
sonore. 
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L'autre circuit important, le Gate Array, que nous nommions aussi ULA, est 
construit spécialement pour AMSTRAD. Ne le cherchez pas sur des catalogues de 
circuits intégrés, il a spécialement été concu par les ingénieurs pour cette 
sachine et fabriqué uniquement pour elle. Peu d'informations sont connues à son 
sujet, sinon qu'il sert à la gestion des accès mémoire et remplit des fonctions 
dans le traitement des couleurs, 


Les esclaves de ces deux maitres sont le circuit de controle d'affichage, 
appelé VDU (Video Display Unit, 6845 de MOTOROLA), le controleur 
d'entrées-sorties appelé PPI (Programmable Peripheral Interface, 8255 de INTEL) 
et le générateur sonore PSG (Programmable Sound Generator, AY-3-0912 de General 
Instruments). Ils accomplissent bien des taches sous les ordres du grand chef 
d'orchestre et de son accolute. Nous ne détaillerons pas ici le fonctionnement 
de tous ces circuits mais nous jugeons nécessaire de vous donner quelques 
informations que les moins curieux de nos lecteurs pourront sauter... Avant que 
ceux-ci ne passent au chapitre suivant, nous voudrions attirer leur attention 
sur la curieuse interface imprimante. 


L'INTERFACE IMPRIMANTE 


S'il y a quelque chose de de contestable sur le CPC, c'est bien 
l'interface imprimante qui a été réalisée au maximum d'économie. Elle ect 
réduite à sa plus simple expression : un latch 74152373... et comme un latch n’a 
que 8 sorties et que l'une d'entre elles est utilisée pour servir de STRÔRE 
{signal validant le transfert des données vers l'imprimante) vous comprendrez 
aisément qu’il va manquer un bit à notre liaison CENTRONICS. 


Pour ceux qui ne le sauraient pas, la liaison de type CENTRONICS est un 
ensemble de 8 ’fils’ acheminant les 8 bits de donnée et d'au moins Z signaux de 
controle : BUSY, indiquant que l'imprimante est en train de travailler, et ne 
peut par conséquent accepter des données et STROBE défini ci-dessus. Le bit 
manquant va nous faire défaut pour passer l'imprimante en mode graphique... 
Pourquoi ? Simplement parce que la majorité des imprimantes s'en servent pour 
déterminer ce mode. De plus, le Bème bit de la sortie imprimante imprimante est 
fixé à la masse, 


Dans leur souci de mettre des masses partout sur cette liaison imprimante, 
les concepteurs ont fixé à D le fil qui est relié au point 14 du connecteur 
standard CENTRONICS, correspondant à un saut de ligne automatique sur 
l'imprimante. Vous comprenez maintenant pourquoi, en utilisant une imprimante 
autre que la DMPI, on obtient, sur le papier, une ligne sur deux en blanc... 
Un simple cutter, où un coup de fer à souder, pourront résoudre ce problème. 
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Signalons enfin que le ’mini-port’ de sortie, constitué par les sept 
lignes de données, et l'entrée sur la ligne *BUSY' pourront etre utilisés pour 
d'autres taches, mais n’anticipons pas... 


QUELQUES DETAILS SUR LE HARD INTERNE 


Sans entrer en profondeur dans le fonctionnement des circuits situés au 
coeur du CPC, nous pensons que l'esprit technicien de nos lecteurs mérite 
quelques précisions sur les circuits principaux, 


LE CONTROLEUR D'ECRAN (CRTC) 6645 


CRTC signifie Cathode Ray Tube Controller. Le 6845 a été développé par 
MOTOROLA, il y a déjà quelques années, et repris par EFCIS, En tant que 
controleur d'écran, il est capable de générer les signaux de synchronisation 
{Horizontale et Verticale), de gérer la mémoire génératrice de caractères, la 
mémoire (RAM) vidéo (ou sont rangées les pages écran), Il assure aussi la 
gestion du curseur et d'un éventuel ’crauon optique’. 

La RAM vidéo est de 16k. C'est aussi le 6845 qui en assure le 
rafraichissement. 

La puce est reliée au monde extérieur par 40 connexions. 


Le fonctionnement du 6845 est régi par 19 registres, l’un s'occupant de 
l'adressage des 18 autres. 

Les registres qui nous intéressent sont appelés RO à RI7, Nous avons la 
possibilité d'y accéder par l'intermédiaire de l'instruction OUT du BASIC ou 
encore, par une routine en langage machine, Ceci permet d'obtenir quelques 
effets assez intéressants, 

Le CRTC occupe deux emplacements en mémoire: 

- &Cxx pour l'adressage des registres internes, 
- Éflxx pour l'envoi des données dans le registre adressé. 


Essayez le petit programme suivant, pour vous convaincre des résultats que 
l’on peut obtenir en ? jouant’ avec ces registres, 


16 OUT &8CO0, 13 

20 FOR N= i TG 40 

30 GOUT &BDOD,N 

40 FOR K= 1 TO 15:NEXT 
30 MEXT 


Faites d'abord CLS:LIST puis RUN, 
Pas mal le Scrolling latéral, non ? 


Les registres RO à R4 sont responsables du Timing Horizontal. 
Les registres R4 à R9 sont responsables du Timing Vertical, 
Les registres R19/11 et R14/15 gèrent le curseur. 

Les registres RI2/13 rafraichissent la RAM vidéo, 

Les registres R16/17 gèrent le crayon optique. 


RO 
R{ 


R3 
R4 
R5 
Ré 
R7 


R9 

RIO 
Rii 
RIZ 
RI3 
R14 
RI5 
Rib 
R17 


LE RGLE DES REGISTRES 


Nombre TOTAL de caractères affichables sur une ligne. 
Nombre de caractères affichés sur une ligne. 

Position synchro. horizontale, 

Largeur du signal de synchro. 

Nombre total de lignes affichables. 

Ajustement de la synchro. verticale. 

Nombre de lignes affichées sur l'écran. 

Position du signal de synchro. verticale. 

Balauage entrelacé où non. 

Nonbre de lignes de balayage pour un caractère (hauteur), 
Ligne de départ du curseur + clignotement éventuel. 

Ligne de fin du curseur. 

Adresse de départ de la RAM vidéo (octet poids fort). 
Adresse de départ de la RAM vidéo (octet poids faible), 
Position actueile du curseur (poids fort), 

Position actuelle du curseur (poids faible}. 

Position RAM vidéo au moment du STROBE Light pen (Fort), 
Position RAM vidéo au moment du STROBE Light pen (Faible). 


VALEURS CONTENUES PAR LES REGISTRES EN MODE 1 


RO 63 
RI 40 
2 4b 
R3 142 
R4 38 
R5 0 
Ré 25 
R7 30 
RE 0 


RIO à R1S sont en permanence modifiés par le Soft. 


LE GATE ARRAY 


Ce circuit complexe à 40 broches, remplace à lui tout seul une fioppée de 
circuits intégrés. Sans lui, le prix du CPC ne serait certainement pas ce qu'il 
est. Concu exclusivement pour le CPC, {vous ne le trouverez dans aucun catalogue 
de composants), il gère la RAM, en controlant les accès, fabrique les signaux 
d'horloge, produit la vidéo et les couleurs. 

Il occupe un seul canal d'entrées-sorties, les 2 bits supérieurs de a 
donnée envouée lors de son adressage permettant l'accès aux 4 registres 
principaux qui sélectionnent ses différentes fonctions. 

On peut y accéder par un OUT &7Fux, 


Bit 7 RBité Registre sélectionné 
RO 0 0 Registre numéro de couleur (palette) <=} PEN 
RI 0 Registre valeur de couleur &=+ INK 
R2 Î 0 Aiquillage ROM et sélection mode écran. 
R3 1 1 Role non précisé, 

RO : Les bits 5,6,7 sont inutilisés. 


Bit 4=0 on charge une couleur d'encre. 
Bit 4=1 on charge une couleur BORDER, 
Bit Oà3 donne la couleur de l'encre. 
RI : Les bits 5,6,7 sont respectivement à 0,1,0. 
Les autres bits donnent le numéro de la couleur (0 à 31), 


R2 : Les bits 5,6,7 sont respectivement à 0,0,1, 
Bit 4=1 Force compteur synchro V à zéro, 


Bit 3-0 Valide la ROM supérieure. {invalide si i} 
Bit 2=0 Valide la ROM inférieure, (invalide si fi 
Bit 1à0 Sélection du mode écran. {voir tableau) 
Bit i Bit 0 Mode écran 
( ( (e 


( Î { 
Î ü 2 
Î Î Inutilisable 


Vous pouvez expérimenter, sans autre risque que la perte de controle du 
clavier, l'envoi de différentes valeurs vers ces registres. Les registres du 
GATE ARRAY ne peuvent pas etre lus, on peut seulement y envouer des données. 

Nous n'avons pas trouvé d'application pratique à l’utilisation directe de 
ces registres, toutes les sélections qu’ils provoquent étant accessibles, en 
général par des routines système plus adaptées, 


LE PPI 82335 


Sous cette abréviation se cache son nom exact: Parallel Peripheral 
Interface. C'est un circuit universel d'entrée sortie pouvant etre utilisé avec 
d'autres microprocesseurs (tel le 8000). Phusiquement, il se présente sous la 
forme d’un boitier à 40 broches, Il intègre 3 ports d'entrées sorties. Selon son 
mode de fonctionnement les lignes des ports sont groupées différemment. 

S'il est difficile de ‘récupérer’ le 8255 du CPC pour des applications 
personnelles, il est néanmoins intéressant de savoir à quoi il sert. 


Dans l’espace des entrées sorties du CPC, il occupe 4 emplacements: 


CONTROLE &F7xx 
PORT À &F4xx 
PORT &F5xx 
PORT C &Fbxx 


Rappelons simplement qu'un PORT est un groupe de B lignes... 

Le registre de controle sélectionne le mode de fonctionnement du PPI et 
valide le sens des différents PORTS. 

Le bit 7 de ce registre, mis à 1, indique que la donnée est un mot de 
controle, sinon qu'elle s'adresse au PORT C, 

Dans ce qui suit, ‘mode’ désigne l'un des 4 modes de fonctionnement du PPI 
(rien à voir avec les modes écran...) 


Bit 6 O - mode 0 
Î -} mode ? 
Bit 5 O - mode 0 
1 -; mode 1 
Eit 4 0 -ÿ PORT À en SORTIE 
1 - PORT À en ENTREE 
Bit 3 0 -: PORT C'en SORTIE (Bite de poids fort du PORT Ci 
1 -ÿ PORT C en ENTREE = = = } 
Hit 2 O -; mode D 
1 -; mode î 
Bit Î CO - PORT B en SORTIE 


ES 


1 -; PORT B en ENTREE 


Bit 0 G -ÿ PORT C'en SORTIE  (Rits de poids faible du PORT C) 


1 -> PORT C en ENTREE ( = = = 


Î 


MODE O: Chaque groupe de 12 lignes peut etre programmé en ENTREE ou 


en SORTIE, par blocs de 4. 


MODE 1: Chaque geoupe peut etre programmé avec 8 lignes en ENTREE ou 


en SORTIE, 3 des 4 restantes servent au Handshaking et Interruptions, 
MODE 2: Le 8255 devient un coupleur de bus bidirectionnel 
avec 5 lignes de Handshaking. 


Notez que le PORT © peut etre divisé en 2 fois 4 bits... 
Sur le CPC, le 8255 est utilisé comme suit: 


Le PORT À est programmé en entrée sortie et assure la liaison avec le 
générateur sonore (8912) pour 1e transfert des données. 


Le PORT B est utilisé ainsi: 
Bit 7: lecture cassette. 
Bit 6: signal BUSY de l'imprimante, 
Bit 5: détecte la précence d'une extension, 


{& bits) 


Bit O1 état de la synchro verticale (retour spot}, 
Les bits Î à 4 sont reliés À des straps internes, cablés en usine, 


fonction des pays auxquels sont destinés les CP, 


Le PORT € est utilisé ainsi: 
Bit 7: en sortie, commande BDIR du 891%, 
Hit b: en sortie, commande PCI du 8912, 
Bit 5: écriture cassette. 
Bit 4: télécommande du moteur magnétophone. 
Les bits 0 à 3 sont reliés aux lignes matrices du clavier. 


Pour utiliser le PPI, on envoie un mot de controle au registre de CONTRÔLE 


puis on envoie {ou on lit) la donnée du FORT correspondant, 


Voici un exemple, sachant que le PORT € du PPI est programmé d'origine en 
SORTIE. Nous allons fermer le relais de commande moteur du magnétoghone. 


L'adresse du PORT C étant &Fbxx on écrira: 


OUT &F600,810 ce qui aura pour effet de mettre à | Ie hit 4. 


Pour ouvrir le relais on enverra la valeur 0... 


LE GENERATEUR DE SONG PROGRAMMABLES (AY-3-8913) 


On !’appellera en abrégé PGG. Concu par GENERAL INSTRUMENTS c'est un 
circuit qui est utilisé également sur d’autres micro-ordinateurs et jeux vidéo. 
Il est capable de produire les sons les plus fous où les plus harmonieux... 11 
intègre également un port d'entrée sortie qui, sur le CPC, est utilisé pour ja 
lecture du clavier et de la manette de jeux. 

Couplé au travers du PPI, le GSP n’occupe pas d'emplacement dans les 
entrées sorties du système. 

Ses 28 pattes laissent deviner une structure interne bigrement complexe 
mais l'utilisateur n'aura pas à s’en soucier puisqu'il ne le connaitra qu'au 
travers de ses 15 registres (16 en fait, mais un n'est pas accessible). 


Les sons sont produits à partir d'un signal d'horloge (externe) et d'un 
diviseur programmable. En agissant sur le facteur de division on obtient des 
fréquences différentes. 

Les différents registres internes sont appelés au travers 
d'entrées de commande BDIR, RCI, BC2, Surle CPC, BCZ n’est pas utilisée: elle 
est fixée au 5V. 


EFFETS DES ETATS DE BDIR ET RCI: 


EDIR RCI FONCTIGN 
( O0 le bus de données du PSG est mis à haute impédance 
ü 1 on peut lire les données dans les registres PEG 
1 O0 on peut écrire des données dans les registres PSG 
1 1  adressage d’un nouveau registre du P5G 


ROLE DES DIFFERENTS REGISTRES DU PSG: 


Numéro Role Bits utiles 
RO Réglage fin tonalité canal À 
Ri Réglage gros = 
RZ Réglage fin tonalité canal B 
R3 Réglage gros = 
R4 Réglage fin tonalité canal € 
R5 Réglage gros = 
Ré Période du bruit 
R7 Controle mélange sons et bruits 
R8 Volume canal À 
R9 Volume canal B 
RID Volume canal C 
RIT Réglage fin période enveloppe 
R12 Réglage gros = 
R13 Sélection enveloppe 
Ri4 Données du PORT 


Co + C0 9 Un UN Un OO Un + 00 + oo + © 
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LES BITS DU REGISTRE DE CONTRÔLE 


Bits 7 à 6 : controle port E7S 
Bits 5 à 3 : controle générateur de bruit 
Bits 2 à O0 : controle générateurs de tonalité 


Pour les bits 0 à 5, un O équivaut à une autorisation, un { à une 
interdiction. 


Bit O : géné. ton canal À 
Bit 1 : géné. ton canal R 
Bit 2 : géné. ton canal € 
Bit 4 : géné. bruit canal À 
Bit 4 : géné. bruit canal B 
Bit 5 : géné. bruit canal © 


L’horloge envoyée au GGP est à 1 MHz. Le premier travail du GSP sera de la 
diviser par 16, La valeur résultante sera alors 462,5 KHz, C'est à partir de 
cette fréquence d'horloge, et selon le contenu des registres (facteur de 
division programmable) que sera obtenue la fréquence finale du son... 


La formule magique est donc 62500/Fréquence désirée=Facteur 


Ce facteur de division est mis dans les registres de réglage ‘fin’ et 
‘gros’ du canal correspondant. Seuls 12 bits étant utilisés, 8 sur le réglage 
fin’ et 4 sur le réglage ‘gros’, le facteur maximum de division sera 409 ce 
qui correspond à une fréquence minimum de 62500/4095=15 Hz, 


Pour le registre de bruit, le principe est le meme mais le facteur de 
division, limité à 5 bits ne pourra dépasser 31 ce qui donnera une fréquence de 
bruit minimum de l'ordre de 62500/31-2000 Hz. 


Toutes ces précisions sont données au lecteur dans le seul but de 
satisfaire sa curiosité car, en définitive, l'utilisateur n'aura que rarement 
besoin d'aller ’ jouer’ directement avec les registres du PSG: les routines 
système sont là pour cela... 


LE MICROPROCESSEUR ZRCA 


1 était difficile de passer en revue les composants du CPC sans dire un 
mot du chef d'orchestre: le 2804. Plusieurs livres lui sont consacrés et notre 
propos n'est pas d'en faire un pale résumé de quelques lignes, aussi nous 
renverrons le lecteur curieux aux ouvrages cités en référence bibliographique, 
22 


Néanmoins, il nous parait indispensable de donner les quelques 
informations qui suivent. 


Le 280 est un dérivé du 8000 de INTEL, Fabriqué par ZILOG il reste, dans 
ses grandes lignes, très proche de son prédécesseur avec lequel il assure une 
compatibilité dite ‘montante’ (les programmes écrits pour 8080 tournent sur 2890 
mais pas l'inverse), 

De la famille des 8 bits, il possède un jeu d'instructions relativement 
vaste, Sur le CPC, il recoit un signal d'horloge à 4MHz et, comme il est bien 
secondé par d’autres composants du système, il en fait une des machines 8 bits 
les plus rapides du moment. 


Le 280 est bati autour des registres suivants: 


- L'accumulateur À, registre (8 bits) privilégié s’il en est puisque 
directement relié à l’unité arithmétique et logique. 

- Le registre d'états F (Flag register, 8 bits) composé de différents 
indicateurs reflètant le résultat des opérations arithmétiques où logiques. 

- & autres registres B bits nommés B,C,D,E,H,L, 


Tous ces registres peuvent etre appariés selon le schéma suivant: 
- À avec F 
- R avec C 
- Davec E 
- H avec L 
On obtient alors des registres ‘16 bits’. 


Tous ces registres sont doublés par des registres ’alternés’ ou registres 
bis’... A'F* pour AF, BC? pour BC, D’E? pour DE, H'L' pour HL, 

Les registres secondaires ainsi définis ne sont hélas pas accessibles 
aisément sur le CPC mais, rassurez-vous, il y a déjà de quoi faire avec les 
registres principaux... 

Les registres 16 bits obtenus sont bien utiles pour l'adressage où encore, 
pour la manipulation de données en tables. HL fait meme souvent office 
d'accumulateur 16 bits. 


Deux autres registres sont très importants: IX et IV appelés registres 
d'index. Ce sont eux qui servent à pointer, à désigner des données en tableaux, 


Enfin SP, le pointeur de pile (Stack Pointer) et PC, le compteur programme 
(Program Counter) complètent la panoplie, 


Le microprocesseur est relié au reste du système par un bus de DONNEES à 8 
bits et un bus d'ADRESGES à 16 bits. Il possède également des signaux de 
CONTROLE qui lui permettent de collaborer avec les autres composants de 
l'ordinateur. La puce est reliée au monde extérieur par un boitier à 40 pattes. 
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Voilà, le tour d'horizon ‘HARD’ est terminé. Redisons-ie, le lecteur 
intéressé par la technique aura avantage à se reporter aux différents ouvrages 
cités en référence... 


Economie lourde en conséquences, le Bème bit absent de l'interface 
imprimante de L'AMGTRAD, orive l'utilisateur de possibilités fort intéressantes, 

Les utilisateurs d'une imprimante AMSTRAD ne sont pas concernés par 
cette modification. 


Pour remédier à ce problème, il suffit de regarder Ie schéma 
électronique de l'AMSTRAD pour se rendre compte que, le bit de poids fort, fixé 
| pie q 
à la masse, peut etre récupéré au pris, il est vrai, d'un peu d'acronatie, de 
‘ ! miiñs ; : 
quelques centimètres de fil, d'une bonne dose de soiss.., et d'un peu de 
patience. I1 faudra également utiliser un fer à souder très fin et peu puissant, 
surtout pas un ‘chalumeau”... 


ATTENTION, si votre machine est encore sous garantie, n'effectuer pas 
cette modification car elle annulerait tout recours. 


À cette modification matérielle, il y aura lieu d'ajouter un peu de 


logiciel: si 2 lignes de programme et 2 soudures ne vous font pas peur, en piste 
pour la modification. 


Ouvrir la machine avec précautions. 

Repérer sur le cireuit imprimé du connecteur imprimante le point 
correspondant au bit 7, Ce point ast relié à la masse. 

nee un cutter, interrompre la liaison sur s 

Couper queiques centimètres de fil de cablage, cou 

Repérer, sur le cireuit imprimé, la patte 19 55 (circuit à 40 
broches situé tout près du connecteur imprimante). Pour la déterminer, partir du 
point { situé à gauche de l'encoche pratiqués dans le boitier du 8255. 

Ce point correspond au hit 5 du port © du 8295: il sert à l'écriture 
des données sur la cassette. Comte on n'écrit jamais en meme temps ur 
l'imprimante et la cassette, il n'y à pas de conflit possible. 

Souder ie fil couple entre les poiats 12 du 8255 et 9 du connecteur 
imprimante. 
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ns 


E “e fin. 


S'assurer qu’il n’y a pas de bavures de soudure. 
Refermer le boitier de L'AMSTRAD, Votre imprimante vous remercie ! 


Coté logiciel, c'est très simple. Pour forcer le bit 7 à 1, à chaque 
fois que vous en aurez besoin (par exemple pour utiliser le node graphique de 
l'imprimante), il suffira d'un OUT &F606,42, Attention, il faut savoir que le 
bit 7 restera à { tant que vous ne l'aurez pas implicitement remis à 0. Pour ce 
faire, il suffira d’un OÙT &F600,06. Ces 2? instructions seront insérées 
judicieusement dans votre programme BASIC, 


Les utilisateurs du langage machine auront recours aux 3 lignes 
d'assembleur suivantes: 


Mise à 1 du bit 7 LD B, FH 
LD À, 20H 
OUT (C),4 
RET 


Mise à O du bit 7 LD B, FH 
LD 4, QOH 
OUT (C),A 
RET 


Cette modification nous a été communiquée par Louis GENTY, également 
auteur aux Editions SORACOM. Qu'il en soit ici remercié. 


LA MEMOIRE D'ECRAN 


Nous ne pouvions la passer sous silence car elle a une organisation assez 
particulière. Rappellons que son role consiste à maintenir toutes les 
informations, y compris celles qui concernent la couleur, présentées à i’écran. 

Elle est organisée en 8192 paires d’octets ({é&kKo). En MODE 2, le plus 
gourmand, il faut { bit par point écran. (nm ne peut représenter qu'une seule 
couleur. En MODE 1, 2 bits sont nécessaires pour coder 1 point: il ü à 4 
couleurs possibles. En MODE 0, il faudra 4 bits par point, ce qui permet de 
coder 16 couleurs simultanément. 


Sur bien des ordinateurs, les adresses mémoire de l'écran se suivent 
rigoureusement, colonne après colonne, ligne après ligne. Sur le CPC, il n’en 
est pas ainsi. Cette particularité ne facilite pas la tache du programmeur pour 
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des applications telles que la S6TV ou le FAX, Le passage d'une ligne à une 
autre s'obtient en additionnant la valeur &800 à l'adresse de La ligne 
précédente, ATTENTION, par ligne nous entendons ‘ligne balayage’ et non pas 
‘ligne caractère écran’... 


Voici une représentation de l’organisation mémoire. 


ûctet i Gctet 90 
Ligne 001 CO00 COGi COCGZ CO0S ..............., LT CO4D CD&E CO4F 
Ligne 002 C800 CA01 CBO2 ..,,,,,.. sis ss ss ourenenonasouons . CR4F 
Ligne 003 D00G DOG1 DGDZ ........,...... sésec saisi nésérsderesrsees .. D04F 
Ligne 199 F780 .....,.... sésame corensusoneus sos emnaise seen FAC 
Ligne 200 FFAÛ ses snuenses susscussse casse vossess FFCF 


Cette structure est très complexe et certains octets demeurent inutilisés, 


En résumé, nous pouvons dire que, les 8 lignes de points formant la 
matrice d’un caractère ne sont pas contenues dans la meme adresse mémoire, On ne 
peut pas POKER’ un code ASCII dans la mémoire écran pour voir s'afficher le 
caractère correspondant. Le processeur écrit une ligne sur huit eur tout l'écran 
puis remonte à la seconde ligne et réécrit une ligne sur huit etc. 

Pour avoir une idée de ce qui se passe il suffit d'observer le chargement 
d’un écran graphique {voir les présentations des cassettes de jeu). Le phénomène 
au ralenti, est illustré par le petit programme ci-dessous. 


10 MODE 2 
20 FOR N = &C000 TO &FFFF 
30 POKE N,255 

40 NEXT 


LANGAGE ET PROGRAMMATION 


Les liens qui existent entre l'opérateur (utilisateur) et sa machine sont 
le clavier, l'écran et, dans une certaine mesure, l'imprimante. Mais ces liens 
ne valent que par le logiciel contenu dans la machine, faute de quoi celle-ci ne 
serait qu’un ensemble inerte de circuits intégrés incapable de faire autre chose 
que générer des ’Syntax Error’ à l'utilisateur néophyte. Son savoir, elle le 
tient du programmeur qui lui a inculqué, par l'intermédiaire du logiciel qu'il 
a créé, la manière de dialoguer avec l'utilisateur. Nous allons voir, brièvement 
comment le programmeur et la machine peuvent se comprendre, 
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Le coeur de l'ordinateur, nous Île savons maintenant, est constitué d'un 
microprocesseur. Comme tout circuit intégré logique, ce dernier est incapable 
de comprendre autre chose que des états À ou i. 11 est capable de reconnaitre 
et d'exécuter des instructions constituées d’un ensemble de 0 et de i. Dans le 
cas du 280, ces instructions sont groupées sur 8 bits. Ne pouvant travailler 
qu'en binaire, il serait horriblement long et fastidieux de dialoguer avec lui 
dans ce mode, c'est la raison pour laquelle on à été amené à créer des langages. 
Le role du langage est donc d'établir le lien entre le programmeur et le 
microprocesseur situé au coeur du micro-ordinateur. 


L'instruction étant l'élément de base compris par le microprocesseur, et 
celle-ci ne pouvant lui parvenir n'importe comment, les instructions sont 
organisées en une suite logique et ordonnée capable d'etre exécutée par a 
machine. Cette suite ordonnée d'instructions, vous l'avez compris, est le 
programme. 


Revenons au langage. Le binaire est le seul capable d'etre compris par 
l'ordinateur ; on parle aussi de langage machine. Pour éviter au programmeur de 
devoir s'abaisser au niveau de la machine, on a créé des langages ‘évolués”’. 

Pour etre compris correctement par la machine, le langage doit répondre à 
certains critères, de sémantique, de grammaire pourrait-on dire, tout comme dans 
le langage écrit ou parlé, ou on imagine mal des mots de vocabulaire assemblés 
n'importe comment. Ces règles de grammaire sont appelées P'SYNTAXE’, Si cette 
syntaxe n'est pas respectée, l'ordinateur détectera des erreurs, Le langage 
comprend une partie, appellée ’Analuseur Syntaxique’, qui vérifie île respect de 
ces règles. Ceci est donc une partie importante du *BASIC' qui équipe votre CPC. 


COMPILATEUR OU INTERPRETEUR ? 


La traduction du langage peut etre effectuée de deux manières différentes, 


LA COMPILATION : le programme est traduit en langage machine avant d'etre 
exécuté. Cette traduction s'effectue en une où plusieurs ‘Passes’, Le résultat 
est la transformation du langage SOURCE’ (celui dans lequel vous écrivez) en 
langage *GBJET” (celui qui est destiné à la machine) : c'est la ‘compilation’. 
Le programme qui accomplit cette tache est le COMPILATEUR’. La compilation n'a 
lieu qu’une seule fois et génére des fichiers ‘objets’ directement (ou presque) 
exécutables. 


L'INTERPRETATION : le programme est analysé ligne par ligne et chaque ligne 
est exécutée au fur et à mesure. À chaque lancement du programme, il y a une 
nouvelle ‘interprétation’ de chaque ligne. Ce travail est l’oeuvre d'un 


*INTERPRETEUR?. 
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La première méthode est beaucoup plus efficace car elle permet une 
exécution beaucoup plus rapide du programme. En revanche, elle demande beaucoup 
plus de place mémoire au moment de la compilation. Sur certains 
micro-ordinateurs de haut de gamme, on trouve des BASIC compilés où 
semi-compilés. 

La seconde méthode, si elle a l'avantage d'économiser la mémoire {au moins 
un temps), a pour inconvénient sa lenteur. Le BASIC interprété permet néammoins 
l'utilisation de la machine en mode conversationnel, par l'intermédiaire de ges 
organes d’entrée-sortie (clavier, écran, imprimante). Il est dit ’interactif". 
La machine peut etre utilsée immédiatement, comme une simple calculatrice. 


PROGRAMMER, c'est connaitre, à la fois, l'éventail des instructions 
acceptées par la machine (vocabulaire) et leur syntaxe (grammaire), Programmer 
efficacement c'est savoir regrouper ces instructions dans un ordre optimum 
permettant de batir un programme performant. Les taches répétitives seront 
regroupées dans des ‘Sous-programmes’, programmes dans le programme, 


L'ANALYSE ET L’'ELABORATION DE L'ALGORITHME 


L'analyse est le premier pas que devra franchir le programmeur avant 
d'écrire son logiciel. C'est pratiquement l'étape la plus importante, avec 
l'élaboration de l’organigramme, et... la plus souvent négligée par les 
programmeurs amateurs, Le résultat d’un programme écrit sans une analyse 
préalable est ce qu'on appelle souvent ‘un plat de nouilles’, c'est-à-dire 
quelque chose d'imparfait et de difficile à mettre au point et à modifier par la 
suite... Envisageriez-vous de construire un Transceiver performant sans aucun 
schéma ? 

La phase d'analyse permet, connaissant la fin, le but à atteindre, de 
définir au mieux les moyens. La dernière étape de l'analyse est l'élaboration de 
l’organigramme ou algorithme, véritable schéma de votre logiciel. Plusieurs 
algorithmes différents peuvent parfois conduire à la résolution d'un mere 
problème. On cherchera alors la rapidité, la concision ou la clarté du programme 
selon le but à atteindre. L’algorithme, tout comme le plan d'analyse sur papier, 
aura tout intéret à etre abondamment commenté. Les commentaires essentiels 
pourront etre reportés dans le programme, dans des lignes de REM, Toutes ces 
précautions permettront un ‘dépannage’ plus aisé du logiciel, en cas de besoin. 


EXEMPLE D'ANALVYSE 


Notre but est de réaliser un logiciel capable de servir de ‘moniteur’ pour 
l'apprentissage de la télégraphie MORSE. Ce logiciel, compte-tenu des 
performances attendues et des qualités du CPC, pourra etre écrit en BASIC, 

Commencons l'analyse de la situation. 
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Que veut-on faire ? 

Apprendre la télégraphie MORSE demande de suivre certaines règles 
pour la lecture au son. Ces règles vont définir les bases de notre progranme. 

Le premier pas à franchir par l'élève consiste à apprendre les 
différents signes qui composent l'alphabet MORSE. Ces signes ne s’apprennent pas 
dans n'importe quel ordre. 

Les signes étant appris, il faudra s'entrainer à les reconnaitre 
lorsqu'ils sont tous mélangés : c'est le second pas. 

Capable de lire et de reconnaitre ‘au son’ tous les signes, il 
faut maintenant acquérir de la vitesse pour etre à l'aise au jour de l'examen 
c'est la dernière étape. Bien entendu, la méthode de manipulation s'apprendra 
lors de la seconde étape. 


Le programme devra donc permettre : 
L'apprentissage des divers groupes de signes. 
La génération de dictées d'entrainement, 
La possibilité de lire au son à diverses vitesses, 
Gutre ces grandes lignes nous ajouterons : 
Entrainement selon certains critères : chiffres seuls, lettres 
seules, ensemble des signes, 
Entrainement au mode ‘trafic’ avec simulation par l'ordinateur de 
différents types de brouillages. 
Les caractères émis s'afficheront à l'écran, 
La dictée aura 255 caractères. 
En apprentissage on émettra 29 groupes de 6 signes. 


Voilà les grandes lignes de notre logiciel. La première étape est 
terminée. On peut en établir un premier ordinogramme, 

Par la suite, on utilisera au mieux, les possibilités du CPC, Fenetres et 
couleurs pour la présentation, canaux sonores multiples pour la sortie des sons. 
Ceci est un exemple simple. Pour des logiciels plus complexes, l'analyse devra 
etre affinée avant d'entamer la programmation. 


Vous trouverez, dans la section programmes de ce livre, le logiciel 
correspondant sous le nom de MONIMORGE. 
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BASIC QU LANGÂGE MACHINE 7 


S'il est facile d'apprendre le PASIC assez rapidement, il n'en va pas de 
meme pour l'étude du langage machine. Pourtant, avec un peu de méthode, et à 
l'aide d’un ouvrage spécialisé, ce travail pourra etre entrepris par l'amateur 
soucieux de découvrir un mode de programmation aussi captivant que performant. 


Dans certaines situations, il sera meme indispensable d'utiliser le 
langage machine, notamment pour des impératifs de rapidité. Il faut reconnaitre 
que le BASIC du CPC est très rapide, ce qui permet d'envisager son utilisation 
meme pour des taches telles que le décodage de la télégraphie MORSE ou la 
réception des signaux ATTY à 45 bauds. Dans ce livre, nous ne l'avons pas fait 
car nous avons voulu démontrer qu'un savant dosage PASIC-Langage machine 
conduisait à une programmation équilibrée, 


Pour ne pas pénaliser les lecteurs ne disposant pas d’un programme 
ASSEMBLEUR, nous nous sommes efforcés à intégrer le langage machine dans des 
lignes de DATA. Les modules en ASGEMBLEUR ne sont là que pour documenter les 
programmes... 


L'assembleur utilisé par les auteurs n’est pas des plus performants, mais 
c'était le seul dont ïils disposaient lors de l'écriture de ce livre. 
Reconnaissons lui quelques qualités, telles que: sa simplicité de mise en 
oeuvre, le fait qu’il intègre un moniteur de mise au point et un désassembleur, 
C'est également un des plus répandus: il s'agit de ZEN, 


Le langage ASSEMPLEUR génère ce que l’on nomme le code objet 
(c’est-à-dire le langage machine). C’est ce code que nous avons réintroduit dans 
les lignes de DATA. En auscultant les zones mémoires correspondantes, au moyen 
d'un DESASSEMBLEUR, vous retrouveriez une suite d'instructions en MNEMONIQUES 
proche de celle fournie dans le listing ASSEMBLEUR commenté. 


La programmation en ASSEMBLEUR est accessible à tous ceux qui sont prets à 
consacrer une partie de leur temps libre à l'apprentissage du langage. Nous vous 
conseillons quelques ouvrages dans nos références bibliographiques. 
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UTILISER LES ROUTINES SVYSTE 


Inutile d'écrire à nouveau ce qui existe déjà dans la ROM... Plusieurs 
routines système sont exploitables facilement par l'utilisateur, d'autant plus 
que le FIRMHARE' (Soft 158) décrit, avec force détails, leurs conditions 
d'accès et de sortie. 

Nous avons résumé ici celles qui sont susceptibles d'etre Iles plus 
utilisées par le lecteur de ce livres nous avons volontairement passé sous 
silence les routines graphiques et sonores. Le lecteur intéressé consultera les 
éléments des références bibliographiques... 


Dans ce qui suit, si des conditions d'entrée sont requises, elles sont 
précisées. Dans le cas contraire, ce point est passé sous silence. Il en est de 
meme pour les conditions de sortie et les registres éventuellement modifiés. 


ROUTINES CONCERNANT LE CLAVIER 


BBIB Teste si une touche est enfoncée. 
Carry = 1 si oui et À contient le caractère correspondant. 
Carry = 0 si non. 
À est altéré. 


BR18 Attente de la frappe d'une touche. 
Carry = { et À contient le caractère correspondant. 


PB24 Etat du joustick. 
à et H contiennent l'état de la manette 0. 
L contient l'état de la manette 1. 
Bit O : haut 
Bit { : bas 
Bit 2 : gauche 
Bit 3: droite 
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DLL # 5: FEU 

Bit 5 : feu { 

Bit 6 : commande joystick supplémentaire 
Bit 7 : non utilisé 


BB21 Etat des touches CAPS LOCK et SHIFT, 
L SHIFT et H CAPS LOCK. 
00 si LOCK inactif, FF si actif. 
AF modifié. 


ROUTINES CONCERNANT L'ECRAN TEXTE 


BESA Envoie au VOU un caractère ou un code de controle. 
À contient le caractère à envoyer. 


BB5D Ecrit un caractère à la position courante du curseur. 
Déplace le curseur d’une position, 
À contient le caractère à envoyer. 
Tous les registres sont modifiés, 


BBED Lit le caractère à la position courante de l'écran. 
Si caractère valide, Carry = i et À contient caractère, 
Sinon, Carry = 0 et À contient 0. 


BB75 Force la position du curseur. 
h doit contenir le numéro de colonne et L le numéro de ligne. 
AF et HL sont altérés. 


BE7B Lit la position présente du curseur. 
H retourne le No de colonne, L le No de ligne. 
À contient le nombre de scrollings effectués, 


BCI4 Efface l'écran, 
Tous les registres sont modifiés. 


BR6C Efface la fenetre courante, 
Tous les registres sont modifiés. 


BB9C Passe en inversion vidéo en échangeant PEN et PAPER. 
ÂF et HL sont modifiés. 


BC4A Inversion de deux couleurs sur un caractère, 
La position du caractère sur l’écran est fixée par: 
H numéro de colonne, 


” L'auméro de ligne. 


B contient une couleur encre, € l’autre couleur encre. 
Tous les registres sont modifiés. 


BB4E Réinitialisation complète de l'écran Texte. 
Tous les registres sont modifiés. 


BC4D Scrolling de l'écran (8 lignes de balayage, 1 ligne carac.). 
B contient 0 si scrolling désiré vers le bas. 
B contient < 0 si scrolling voulu vers le haut. 
Tous les registres sont altérés. 


BCO5 Déroulement latéral de l'écran par modification d'offset. 
HL contient le nouvel offset requis. 
âF et HL sont altérés. 


BCS5O Scrolling d'une fenetre. 
B devra contenir 0 pour un scroiling vers le bas, 
B contiendra € 0 pour un scrolling vers le haut. 


FB6é Création d’une fenetre désignée par ses limites. 
H colonne d’un coté, D colonne de l'autre. 
L ligne d'un coté, E ligne de l’autre. 
Tous les registres sont modifiés. 
Le curseur est positionné en haut à gauche de la fenetre. 


PRP4 Change le numéro de fenetre en cours. 
À contient le nouveau No à l'entrée. 
À contient l’ancien No en sortie. 
HL modifié. 


ROUTINES CONCERNANT L' IMPRIMANTE 


BD2E Détermine si l'imprimante est prete. 
Carry = { si EUSY 
Carry = 0 si libre. 


ED2B Tente d'envoyer un caractère à l'imprimante. 
Revient 51 elle est occupée trop longtemps. 
À contient le caractère à envoyer (Bit 7 ignoré, hélas. ..}, 
Carry = 1 si tout s'est bien passé. 
Carry = À sinon. 
À modifié, 
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231 Envoi d’un caractère à l'imprimante. 
ATTENTION, ne teste pas le EUSY... 
À contient le caractère. 
Carry = 1 au retour, 
À modifié. 


ROUTINES CONCERNANT LE GENERATEUR SONORE 


BD34 Envoie une donnée au PSG. 
À contient le No de registre auquel s'adresse la donnée. 
C contient la donnée. 
8F et RC sont modifiés. 


BCBÉ ârrete tous les sons immédiatement, 
Carry = { si un son était en cours. 
Carry = O s'il n’y avait pas de son en cours, 
4F, BC, HL sont modifiés. 


BCR9 Redémarre les sons interrompus par PCBE.., 
AF, BC, DE, IX modifiés. 


ROUTINES DIVERSES 


BDIO Initialise la valeur du compteur de temps. 
Ce compteur est incrémenté tous les 1/300 èmes de sec. 
La valeur à envoyer est mise dans DEHL. 
D contient l’octet le plus significatif, L le moins. 
ÀF est modifié. 


BD19 Attente de synchro verticale. 
Aucune condition, aucune modification... 


QUELQUES VARIABLES SYSTEME 


11 est parfois bon de pouvoir controler, au sein d'un programme BASIC (ou 
machine), l’état du système. Voici quelques bonnes adresses. 
Les pointeurs sont sur 2 octets, les flags sur un seul... 
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AE7R 
AEBI 
ÀEB3 
AEG5 


BICE 
BICA 
BiCB 


B20C 
B285 
E286 


P4E9 
B4EA 
B4F1 


Plusieurs 
tampons d'entrée. 


CLAVIER 
LE 50N 
CASSETTE 


DRIVE 


HIMEM (le BASIC ne peut empiéter dessus). 
Début du BASIC. 

Fin du BASIC, 

Début des variables. 


Mode écran (0,1,2}. 
Ôffset début écran, 
Poids fort adresse début mémoire écran, 


Fenetre actuelle, 
Ligne curseur. 
Colonne curseur. 


Vitesse répétition touches. 
Délai répétition touches. 
Entrée joystick. 


zones mémoire sont réservées à des tables de valeurs où à des 
234C 240 Octets de tables de valeurs des touches. 
2551 à P7/FF variables de gestion, formes d'enveloppes.., 


E600 à B8DF Type de fichier, longueur, implantation... 


En cas d'utilisation d'un drive (ou sur les systèmes équipés 
d'origine) la zone A700 à ABAF est réservée à sa gestion. 
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UN DEGASSEMPLEUR 


Suite à ce que vous venez de lire dans le chapitre précédent, vous 
voudriez bien voir ce qui se passe dans les zones mémoire occupées par le 
système et, au besoin, chercher à comprendre comment fonctionnent les routines 
en assembleur utilisées dans les programmes de ce livre ou dans la ROM, 

Vous ne possédiez pas encore de désassembleur, en voici un, Il n'a pas de 
grandes prétentions: seulement celle de vous inciter à aller plus loin et 
certainement acquérir un logiciel de travail plus complet. 


La ROM de 1'AMSTRAD n'étant pas accessible directement, il faut une petite 
routine en langage machine pour actionner le mécanisme d’'OVERLAY, ceci pour 
justifier l'option ROM/RAM proposée par le désassembleur. 


MODE D'EMPLOI 


L'adresse de début de désassemblage sera donnée en héxadécimal, le reste 
est explicite, les options disponibles étant rappelées à l'écran. 

Le désassenblage s'effectue par ‘pages’, le passage de l’une à l’autre est 
obtenu par l'appui sur ESPACE, 

Il est possible d'éditer le listing désassemblé sur imprimante, une 
bascule’ imprimante ON ou OFF étant disponible. 


RESTRICTION: les instructions sur IX et IV ne sont pas désassemblées, 
elles sont seulement listées. 


Les mnémoniques sont contenus dans des lignes de DATA: il est important de 
veiller à ce qu’il n’y ait pas d'erreur lors de la saisie de ces lignes. Les 
virgules successives ont leur importance, ne les négligez pas. 
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LO REM HR GORE ON EUR EEE ER DEEE GE DE DE RE EE EE EX 
SQ0 REM #% —DESASSEMELEUR— # 
40 REM #&+%x 

&0 REM ++ &-DUTERTRE EDDY FE 





0 REM #+x Jde 
60 REM xx ES /02/1985 LE 
70 REM ++x FE 
RO REF ROMEO RON MERE HE DE DEEE HE HORRE REX EEE 


0 DATA NOP,'"ELD BC," "LD CBC) ,â",INC EC 

; INC B,DEC B,'"ILD E,",RLCA,"EX AF,4F""," 

ADD HL,BC" 

LOC DATA'LD 8, (RCI, DEC BC,INC C,DEC ©," 

ILD Ci" RRCA, "ADINZ M,'ELD DE,'", "LD (DE) 

1A",INC DE 

LiQ DATA INC D,DEC G,'"ILD D,'",RLA,'"SIR " 

"ADD HL,DE'",'"LD 4, (DE)",DEC DE, INC E,DE 

Oo E 

LEO DATAMILD E,',RRA,"SIR NZ," "ELD HL," 

n"4LD € ),HL'S INC HL,INC H,DEC H,"ILD 

H, ", DâÂ 

LAC DATA"SIR Z,", "ADD HL,HL',"7LD HL, { 
PMODEC HL,INC L,DEC L,'ILD L,' CPL, "a 

R NC," "ELD SP," 

140 DATA"4LD Ju", INC SP,INC CHL),D 

EC CHLIS"ILD CHLI ,"QSCF, "AIR C,", "ADD HL 

,8P","SLD 4, ji DEC SP 

130 DATA INC â,DEC À,"ILD 4,",CCF 

16 DATA RET NZ,POPR BC,"EJIP NZ M UEIP °, 

MRCALL NZ," PUSH BC, '"1ADD A,",RST O,RET 

ÉARET "EJP Zstss"SCALL Z,","ECALL ","14D 

C hs" RST B,RET NC, POP DE, '"EJTR NC, ","60û 

sf ,à" 

170 DATA'ZCALL NC,", PUSH DE, '"ISUR ",RST 

1, RET CEXXS"EUP C'','IIN A," "ECALL C, 

MAINST/IX,"ISEC A',RST ŒA4RET PO,POP HL 

sUEUJP PO,M,MEX (SP, HL","ECALL PO,°", PUSH 

HL, "LAND ",RST 3% 

180 DATA RET PE,JP CHL)I,"SJP PE,','EX DE 

sHL M, MECALL PE," ,-,"IXOR M,RST 40,RET PF, 

POP AF,"EJTP P,'",DI,"ECALL P,",PUSH 4F,"1 

OR "RST 48,RET M,'LD SP,HL','IJP M,'",ET 

190 DATA "ECALL M", INST/IYV,'"ICP M,RST 5 

6 

“O0 DATA LDT,CPI,INT,OUTI,,,,,LDD, CPD,IN 

D, OUTD, 441 LDIR, CPIR,INIR,OTIR,,,,4LDDR, 

CPDR, INDR, OTDR 


#10 DÉTANIN B, CCI", OUT (CCI ,B'"."SRBC HL,E 

Cri t4LD 3, RCV,NESG, RET N,IM Q'LD I, 

AU UIN Ci CCM, POUT CCI, OC", " ADC HL, BC", "7 

LD BC, ( "y RETI sa "LD RAIN D,(C)" 
a "OUT (CCI,D","SEC HL,DE'","4LD ( ),DE" 

##Q REM ne pas effacer cette ligne 

#30 DATA EE, CD EH L, CHL) 4 a Be CaDsEsHalea 
CHL), À 

“ 40 DATA RLE,RRE, RL, RR,SLA, SRA,, GRL,EBIT, 

RES, GET 

#30 DATA"ADD A", "A4DC A,",'"SUER ",'GRC À, 
FyUAND MUXKOR M'OR M UCP # 

“ 260 DÉTARDEF, &Ué4, BAR, EC, 807, SAR, &FC, &sA, 

LOC, 800, BYE, LÛE, LAB, &C9, 800, 800, &8CD, &60, 

ERP, AE, 17, LAR, &CS 

270 MEMORY  &9FFF: DIM R$(iG),S#(11) 

HO RESTORE #30:0=0 

EFQ FOR NeQ TO 153s:READ RSCND:NEXT 

AOC FOR Ne( TO IO:RES4D S$CN):NEXT 

310 FOR NeQ TO F:READ TS CN) 2 NEXT 

IQ FOR Ne&ABOO TO &AElÉéE READ A: POKE N, A 
sNEXT 

330 MODE LiWINDOW 1,40, 1,20: WINDOW #1,1, 

AÛ, EL, ESS ORIGIN OO 64: DRAW 639,0,1 

“40 ORIGIN QD, 46: DRAW 639,0, LsORIGIN 144, 

QO:DRAUW À, &é, Le LOCATEHI, 1,23 PRINTHAI, "SELE 
CTIGON" 

3930 LOCATE 41,169, %: PRINTHI, "COMMANDEST"3:L 

OCATE #1,11, 4: PRINTHI, "ESPACE=Suite Nr: 
Nouv.adresse’ 

360 LOCATE #1,11,5:PRINT#HI,"Iæelmprimante 
ONU ÛHRS (24) 3 "OFF x CHRS C4) 

70 LOCATE #1, 33,5: PRINTH#I, "Asârret" 

380 CLGs PRINT'VOUS VOULEZ DESSASSEMPLER 
UNE ZONE DE: 

390 PRINT :PRINT"'Ii-RAM‘" : PRINT'Z-ROM'": PRIN 
TEPRINT'VOTRE CHOIX 7" 

AOC GHEINKENS: GHSUPPERS (GS) :IF G$z"" OR 
CGBESNIS AND GRESNEt AND GSEEUI") THEN 4 
(10 

iQ IF Gé="I" THEN GOSUR 1340:G0T0 400 
#0 PRINT: PRINT :Re VAL (G#) sLOCATE #1,4,43: 
IF Rei THEN PRINTH1,"RSM" ELSE PRINT#1," 
ROM" 

ASC AC: B£e "Me: PRINT "ADRESSE DE DESASSEM 
PLAGE: ,," 


39 


440 FOR NEO TO 3 

ST ABSINREVSÉ:aËz UPPERS Ca$):1F ASE OTHE 
N 450 

480 IF AS="I" THEN GOSUR 1340:GOT0 450 
470 IF 4#:"9" AND A#<"4" THEN 450 

480 IF ASE'FY OR 4$<"0" THEN 450 

490 LOCATE Zé+N, 9: PRINT #4: BÉE=RS+AS:NEXT 
500 Az=VAL("&R"+BE):IF 80 THEN 8=65536+A 
310 CLS:FOR Nzïi TO X0 

320 PRINT UPPER#(BS#) 5" L3 

530 Prh:GOSUR 1290:C8= HEXS# (D, 2) : GOSUR. Cr 
O:GOSUR 680 

540 LOCATE X7,N:FOR Me TO A+l-1sPeM:GOS 
UR 1EO0:PRINT HEX#8(D,2%2)3" "sseNEXTs PRINT 
550 A=A+I:IF A4:65535 THEN 4=û 

560 B#H=HEX#(4,4)3:IF Qe0 THEN 580 

570 FOR Mel TO 40O:LOCATE M,NsCALL &ABIilis 
PRINTH8, CHRSCPEEK(&ARI7))3sNEXT M: PRINTH 
[e) 

3680 NEXT N 

590 THEINKEVS: TH=UPPRERSCT#DSIF Téæt" THE 
N 590 

SOC IF T$=" "THEN B#=HEXSC8, 4) :GOTO S10 


610 IF Té="l" THEN GOSUR 1340:G0T0 590 
620 1F T$="N" THEN 380 

630 IF T#="A"THEN WINDOUWU 1,40,1,25:CLG:E 
ND 

640 GOTO 590 

650 DATA IM 1,"LD A,I","IN E,(C)", "OUT € 
C),E","ADC HL,DE","7LD DE, ( "ss I E 
,"LD A,R',"IN H, CC)", "OUT (CC), H", "SEC HL 
,HL","4LD € D,HL'" 5395 RRDQ"IN L,(C)"," 
OUT (C),L","ADC HL,HL","7LD DE, { jen 
,5RLD,,,"SBC HL,SP" 

660 DATA "4LD ( D, SP ss" IN A, (C)", 
"OUT (C),A","ADC HL,GP","7LD SP, ( >" 
870 Y=VAL("E"4MIDE(CCS, 1,1)3)3:Z=VAL("E&"4+MI 
D#(C#,2, 13): RETURN 

680 IF Y:3 AND Y:8 THEN 770 

690 IF D=203 THEN P=A+1i:GOSUR 1290:GOT0 
820 

700 IF D=237 THEN P=A+1:GOSUE 1290:GOTO 
1060 

710 IF D=&DD THEN PRINT'INST/IX :":GOTO 
1360 


FEQ IF De&FD THEN FRINT'INST/IY 5 ":GO0T0 
1360 

730 IF Dr1E7 AND D£<19Z THEN 660 

740 IF D£éé THEN 90 

750 IF Dr191 THEN 1040 

780 PRINT:ïlzæis: RETURN 

770 IF 7x6 SND Y=7 THEN PRINT'MHALT'"'sTæl: 
RETURN 

F0 PRINT'LDO Myske(V-4iks 

790 IF 228 THEN PRINT R$#(CKja", ts 

OC IF 257 THEN PRINT R#&CK4tient, tes 

SIC PRINT R$(Z)sle1ls RETURN 

HEC IF Dés THEN 84û 

SO ReINT(CD/895s PRINT SHCKir MuscHheHExXé( 
ce) GOSUR 670: PRINT R$S(Z)s: le: RETURN 
G40 ERINT(dééé)+73: PRINT &#Ckis 

650 EZINT(d/8)-S3:IF dr191 THEN ksk-1é 
S8Q IF d'if7 AND dii9z THEN kzk-8 

YO PRINT kate CSeHEXSCD, Xe GOSUR 670: 
PRINT ré(zisisés RETURN 

GO ksd- 128 sue INTCE/6) 8 PRINT ES Cu) ss GOSU 
PB GSYO: PRINT r$(z)hsiei: RETURN 

890 peINT(d/1015 

GO GOSUR 1170: FOR qge0 TO Cd-p#i0i:RESAD 
SENEXT g 

910 FS-MIDS (es, 1, Lu IF fértet THEN PRINT 
gésiels RETURN 

HE0 PRINT MIDéie#, =): 

IQ IF fée" l" THEN Prñ+lsGOSUPR 1290:PRIH 
TOHEXS (Cd, 2) si: RETURN 
G&Q IF ï 











SSÛ IF fées" THEN 990 
PEN Prét+ls GOSUR LESC: PRINT HEXS (Cd, ia" € 


Hu 
4 


GITE dris7 THEN ded-2ñé 
PO0 wratitds DéHEXS Cu, 433 
3 RETURN 

SOÛ IF fést4" THEN LOCATE 13, nef#etstsG0 
Fo 940 

IOQC IF féstS" THEN LOCATE 15,nsf#atstsG 
OTO 940 

IOIO IF féa"é" THEN LOCATE 15,nmefgetits:a 
OTS 930 | 

IOSQ IF fs" 7" THEN LOCATE lé,nefée"Nstsg 
OTO 940 


PRINT b$j")"si 
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1030 PRINT:i=1: RETURN 
1040 peINT((d-192) /20)D 47 

1050 GOSUB 1170:FOR g=Q0 TO (d-192-(p-7)# 

Z2O):READ e$:NEXT g:GGTO 910 

1060 IF d'&PB THEN RETURN 

1065 IF d2i?4 THEN 1090 

1070 RESTORE Z00 

1080 FOR j=0 TO d-160:READ e#:NEXT: PRINT 
e$:ief: RETURN 

1090 IF d:85 THEN 11270 

1100 RESTORE 10 

1110 FOR je0 TO d-64:READ e#t:NEXT:TeA:4= 

A+1:GOSUP 910:4=T:imitis RETURN 

1120 IF di14 THEN 1150 

1130 RESTORE 4650 

1140 ded-2%:GOT0 1110 

1150 RESTORE 660) 

1160 d=d--51:GOT0 1110 

1170 ON p+i GOTO 1180,1190,1%00,1210,12% 
Q0,1230,1240,1250,12%60,1270, 1280 

1180 RESTORE 90:RETURN 

1190 RESTORE 100:RETURN 

1200 RESTORE 110:RETURN 

1210 RESTORE 120: RETURN 

1220 RESTORE 130:RETURN 

1230 RESTORE 140:RETURN 

1240 RESTORE 150:RETURN 

1250 RESTORE 160:RETURN 

1260 RESTORE 170:RETURN 

1270 RESTORE 180:RETURN 

1280 RESTORE 190:RETURN 

1290 IF Rei THEN D=PEEKR(P) : RETURN 

1300 PHeINT(P/256) : PLeP-PHeSe 

1310 POKE &APOB, PL:POKE &A4B(9, PH 

1320 CALL &A4PBOO 

1330 D=PEEK (&ABOE) : RETURN 

1340 IF Q=0 THEN Q=1:LOCATE#L,24,5:PRINT 
#1, CHRS CEA) 3 "ON" 3 CHR CZ4) 5" /OFF" : RETURN 
1350 Q=0:LOCATE#1,24,5:PRINTHL, "ON/ "5 CHR 
BCLA4) 3 "OFF" 3 CHRECZ4) : RETURN 

1360 PæA+i:GOSUR 1290 

1370 IF D=9 OR D=8i9 OR D=8#9 OR D=839 0 
R D=8ZB OR DeëE3 OR De&?3 OR De&E® OR D 
&F9 OR DrëEl OR D=éEsS THEN I=2: RETURN 
1380 IF De&CP OR D=836 OR De&r? OR Dr&zA 
OR De&zi THEN 1=4:RETURN 

1390 Ie3: RETURN 








RAPPELS SUR LE LOCATOR 


Le procédé de découpage de la surface du globe en "rectangles", permettant 
la localisation aisée d’une station, est appelé LOCATOR". Ce découpage est 
très utilisé pour le trafic en VHF / UHF et par satellites, Il est bon d'en 
connaitre le principe afin de bien comprendre le fonctionnement des différents 
programmes s'y rapportant. 

Le codage du LOCATOR s'effectue maintenant (un autre code a existé) sur 
six caractères, lettres et chiffres, 


D'un coup de baguette magique, transformons la terre en une bande 
rectangulaire, traversée par l'équateur. Cette bande est partagée en 18 oros 
rectangles eux-memes divisés en {8 autres rectangles d'une "surface" de 20 
degrés sur 10, Partageons ces derniers en 100 de manière à obtenir des 
rectangles de 2 degrés sur 1. Enfin, pour affiner la résolution et permettre une 
localisation assez précise, partageons les en surfaces élémentaires de 5 minutes 
eur 2,5. 11 faut maintenant donner un repère à ces rectangles, Nous utiliserons 
des lettres et des chiffres : vous l'avez deviné, c'est le fameux LOCATOR, 

De -180 (longitude ouest de Greenwich} à +180 en allant vers l'est on à 
les 18 lettres, de À à R par “pas” de 20 degrés, De -90 {latitude sud} à +90 en 
montant vers le nord on à 18 lettres de À à R par “pas” de 10 degrés. N'est-ce 
pas là un découpage fort simple ? Nous avons obtenu les deux premiers caractères 
du LOCATOR. Les 100 rectangles de #1 degrés sont, eux, repérés par des 
chiffres, de 0 à 9 d'ouest en est et du sud au nord, Ils forment les troisième 
et quatrième caractères du LOCATOR. Les 576 surfaces élémentaires de 342,5 
minutes sont repérées par des lettres de À à X d'ouest en est et du sud au nord, 
formant les deux derniers caractères du LOCATOR, 


Nous allons voir comment, grace à ce simple et savant découpage, 1l 
possible de convertir une position géographique quelconque du giobe (latitude et 


longitude} en LOCATOR, 
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Notre premier petit programme sera "didactique" et il est possible de 
supprimer les PRINT des lignes 130, 150, 170, 190, 220, 330, 350, 370, 9390 et 
420 qui n'ont pas d'autre but que d'illustrer le procédé de conversion. 

Gc désigne les "grands carrés", mc les moyens" et pc les “petits”, 

En longitude, l’origine est à -180, On effectuera donc un “changement de 
repère"... De meme avec la latitude commencant à -90.., 

Si vous avez bien compris le découpage précédant, le programme ne doit 
vous poser aucun problème. La conversion des valeurs de “coordonnées 
transposées" en lettres et chiffres s'effectue à partir du code ASCII sachant 
que la lettre À à pour code 65 et le chiffre 0 48, On obtient les variables 

“CARI" à "CAR6" représentant les 6 caractères du LOCATOR. On les concatène en 
une chaine qui forme le code du LOCATOR (QTH$). 


Ce premier petit programme pourra facilement etre inclus, si vous le 
désirez, dans le progranme de calculs de distances et azimuts, Il a sa raison 
d'etre car on ne connait pas forcément le LOCATOR de l’endroit ou l'on se trouve 
{par exemple en vacances) alors que la position géographique repérée en 
coordonnées est indiquée sur toutes les cartes. 


Ceci nous amène à un second petit programme permettant d'effectuer les 
conversions ramenant les coordonnées en degrés décimaux.., pour les introduire 
dans le programme précédant. En effet, certaines cartes indiquent les 
coordonnées en grades, d’autres en degrés sérxagésimaux, Un petit exercice de 
manipulations de chaines et de conversions nous permet d'obtenir dans LA et GA 
respectivement la latitude et la longitude au "format requis. 

Ce second "module" pourrait, bien entendu, etre inclus au premier... et 
l’ensemble au programme LOCATOR. C'est une affaire de gout où de besoins. Notez, 
si vous désirez marier ces trois programmes, que les variables ont étés prévues 
pour pouvoir etre transmises: OTH$, LA et GA. 


Le programme final est, bien sur, le calcul des distance et azimut par le 
LOCATOR. On entre le LOCATOR du correspondant et la machine calcule la distance 
qui vous sépare de lui et la direction dans laquelle vous devez tourner vos 
antennes pour assurer la meilleure liaison {s'il n’y a pas d'obstacles ou de 
réflexions... .). 

Le principe du programme est très simple : on découpe la chaine formant le 
LOCATOR caractère par caractère et on reconvertit en coordonnées... Nous avons 
vu, plus haut, le procédé inverse. 

Au coeur de ce programme se trouve une formule complexe mais bien connue 
de tous les amateurs en navigation. Elle permet de connaitre la distance 
séparant deux points du globe de coordonnées LA GA et LB GE, qui est en fait la 
longueur de l'arc de grand cercle, ayant pour centre celui de la terre, et 
passant par ces deux points. Cette formule de trigo sphérique est suffisament 
précise si la route est courte. 

Rappelons, qu’à l'équateur, un angle de { degré correspond à environ {ii 
kilomètres (60 miles nautiques). { mile nautique égale une minute d'angle. 

44 


DISTANCE = ARCOS (sin(LA)sin(LB)+cos(LA)cos(LB)cos(GB-GA))#60 


BRCOS (sin(LE)-cos(D/60)sin(LA)}/(sin(d/60)cos(LA)) 
(avec D repésentant la distance calculée ci-dessus) 


AZIMUT 


La distance est exprimée en kilomètres et l’azimut en degrés, 


En ligne 1840, le programme reconstitue en ACSX l’arc cosinus (ARCS de la 
formule) absent dans le BASIC de l’AMSTRAD. 

Un test, portant sur la validité du LOCATOR introduit, permet de détecter 
des erreurs de frappe éventuelles. 

Comme on ne peut préjuger de l’état de la touche CAPS LOCK, on transforme 
systématiquement et grace à la fonction UPPER, la chaine LOCATOR introduite en 
majuscules. 

Notez le WHILE INKEY$="":WEND servant à attendre l'appui sur une touche. 

Le module de calcul de distance, situé en fin de programme, est le meme 
que celui utilisé dans le programme CONTEST. 


Le sous-programme testant la validité du LOCATOR a été placé en début du 
programme. En règle générale, c'est une habitude à prendre car, à l’appel d’un 
sous-programme, le PASIC effectue une recherche en partant du début du 
programme. On voit donc tout l’intéret (gain de vitesse) à placer en tete les 
sous-programmes appelés fréquemment. 


1000 7 x Xe OH ROCHE DEEE HOHHE ME JE 


1010 °+« # 
1020 7 + LOCATOR * 
1030 + % 
1040 7% FiEZH F6&GKO * 
1050 + x 
1060 *>x (C) EDEN Softuare 635 + 
1070 °+ + 
LORCI 4e ee DE EROREHEDEOM ROCHE ME DEEE EN JEXE 
1050 


1100 GOTO 1170 

1110 IF CCIDESS OR C(CI)FAZ THEN ERzi 

1120 RETURN 

1140 IF CCI)E4R OR C(I):37 THEN ER 

1140 RETURN 

11530 IF CCI)DEéS OR C(CI):E8 THEN ERxi 

1160 RETURN 

1170 * FRESENTATION 

1180 MODE L:INK OO, l: PAPER O2 INK 1, #4: PEN 
1: BORDER L:WINDOW #1,8,31,7,17:1INK 3,8: 


PAPER #1,3:CLO#HISINK ZO:PEN #1, & 


1190 PRINT #Hi:PRINT #1," LOCATOR" 
1200 PRINT #Hi:PRINT #1," CALCUL DISTANCE 
AZIMUT" 

1210 PRINT #is:PRINT #1," FIEZH ET Fé 
GKG" 

1220 PRINT Hi:PRINT #1," "as CHR#(lé4ia" E 
DEN Software 19685" 


1230 PRINT HIi:PRINT #1," CPC 4é4 et 
&é&4" 
1240 LOCATE #0,7,Æ212:PRINT "< APPUYEZ SUR 


UNE TOUCHE 5" 
1250 WHILE INKEY#="":WEND 
1260 MODE 1:INK 0,13: PôPER O:CLS:INK 1,0 
:PEN 1:BORDER 13 
1270 ABZUHHHE, HHHH UE DOUCHE, HH°! 
1280 CLS 
1290 PRINT:PRINT:PRINT'"Pour initialiser 
les calculs entrez : "sPRINT 
1300 PRINT "(L) Votre LOCATOR 

{C) Vos COORDONNEES" 
1310 PRINT:INPUT " Votre choix L/C ® 
CHE 
1320 CHBeUPPERS(CHHIIIF cuHBer"L" AND cxg 
LEMC" THEN 1280 
1330 IF cx$z'"L' THEN GOSUR 1400 ELSE G0S 
UR 1360 
1340 PRINT: PRINT:PRINT "< PRESSEZ UNE TO 
UCHE POUR CONTINUER SM2WMILE INKEY#=nt:u 
END 
1350 la=zlat:ga=lon:GOTO 1650 
1360 CLS: PRINT: PRINT: PRINT "introduisez 
Vos COORDONNEES en degres DE 
CIMAUX" 
1370 PRINT:PRINT: INPUT "LATITUDE "zslat 
1380 INPUT "LONGITUDE "slon 
1390 RETURN 
1400 ? INTRODUCTION DU LOCATOR 
1410 CLS 
140 PRINT:PRINT:PRINT 
1430 PRINT:PRINT:INPUT "Entrez le LOCATO 
R "sath$ 
1440 qth£=UPPERE(qth$) 
1450 IF LEN(QTH#)=6 THEN 1470 
1460 PRINT CHR#(7)2:PRINT:PRINT "ERREUR SG 
UR LA LONGUEUR DU LOCATOR ":G0T0 1570 


1470 
1480 


Ds 
L49CT ON 1 GOSUR 1110,1110,1130,1130,11%0 
*1130 


1300 
1310 
L15ÆE0 
1340 
1540 
19590 


PDECODE ET TESTE VALIDITÉ 


FOR ie1i TO éirc(i)eASC (MIDS 


ER=û 


IF ER=Q THEN NEXT:GOTO 1580 


"INDIQUE OU EST ERREUR 
CHe=MIDS(QTHS, I, 1) 

PRINT CHR#(7) 

PRINT:PRINT "ERREUR SUR": 


IF Teil THEN PRINT ? ler's ELSE 


T is'"eme"s 
1 PRINT % CARACTERE LOCATOR CMsc#a"d" 


360 


Cathe, 1 


1570 BORDER GO, és PRINT: PRINT: PRINT 
ESSEZ UNE TOUCHE POUR CONTINUER 


1580 


1600 LATe-Q04 (CCE) ) #10 C C4) 484 CCC) 


Us UWHILE 
INREVYS&= US NEND: BORDER 13:GOT0 1400 


CALCUL LATITUDE ET LONGITUGE 
1890 LONS-1604 CC C1) 68 3 REQEÉ CCD) 4) + 
LiS)-éé4 SD /1E 


és nn ) 2h 


1610 
160 
16:30 
1640 
1650 
166 


1670 


1660 
1690 
170 
1710 
1720 
1730 
1740) 
1730 
17601 
1770 
1780 
1790 


PRINT: PRINT 


ns 


PRIN 


PR 


PRINT "Latitude os "sUSING Ag: LAT 


PRINT "Longitude 
RETURN 
CLS 


PaUSTING 8% 3 LON 


PRINT:PRINT "Calculs de DISTANCE et 
d' AZIMUT" 


PRINT M ocean neo ne a ue me ane 


PRINT: PRINT 

GOSUR 14720 
lLhbelatigqhelon:sdasca-cb 
aeSIN(la/1E0kPI) 
BeSINCIDb/1S80&PT) 
ceCoS(la/1H0kPI) 
deCos (LE, 18C0C&PT 
esCOS (ce /100kPI 

He (a#b)+Ccrdke) 
acgne-# TN CO 
distel11, Ex (acsex/PI+16(1) 
PRINT: PRINT:PRINT MOISTANCE 









INE BH: DIST 


1800 
1910 


DIST=DIST/1.,85%2:R=DIST/460 
FæeCOS(R4ISO#PT) 


SOR Hat l 41.5 


el 
LA 


€ 


“US 


47 


48 


L18#0 G=SINCR/180&PT) 

1830 X=(B-F+#4)/(GKxC) 

1840 acsx=-ATNCH/GSGR(-uænx+1))+1,5708 
1850 AZI=ACSX/FI#180 

1860 IF GA-GE:0 THEN 421=360-A42T 

1870 PRINT'AZIMUT 5 MsUSING Bé$sAZT 


1880 PRINT:PRINT: PRINT "< PRESSEZ UNE TO 
UCHE POUR CONTINUER S'sWMILE INKEY&#=" "IH 


END 


1890 GOTO 1630 


100 
110 
120 
130 
140 
“00 
#10 
0 


‘Module de conversion coordonnees 
Ressort avec LAT en LA 


d LON en Gâ 
E1z100/80:kE%=90/100 


MODE 
PRINT:PRINT 'Entree des coordonnees 


geographiques" 


A0 


PRINT :PRINT" —l En Degres Gexagegsi 


maux " 


40 
#30 
“60 


270 
#00 
90 
300) 


PRINT" —# En Grades" 
PRINT" —3 En Degres Decimaux" 
PRINT3:INPUT " + Votre choix "Mscx 


PRINT: PRINT 

ON cx GOSUR 320,450,510 

PRINT: PRINT: PRINT la: PRINT ga 
PRINT:PRINT "ôppuyez sur une touche 


pour recommencer" 


310 
320 
«330 
340 
330 
360 
370] 
380 


390 


WHILE  INKEY#=" "3 WEND : RUN 

INPUT "Latitude dd.mm "slat# 

INPUT "Longitude dd.mm "slons# 
corg=laté:GOSUR 380: la-daxs 
coréslons:GOGUR 390:qgar-cdoaxs 

RETURN 

Per conversion sSexa-decimal -—--- 


IF LEFT$éCcor$,1)="-"THEN sx-1 ELSE s 


IF se-1 THEN cor$=MIDé(cor#, %,5) 


400 daésLEFTé(coré, 4) 

10 mMmÉé=RIGATS(corSs, #) 

40 mreVAél Cmmé ik laCi, O1 

A0 doqzVêLl (dos )-+rnm 

440 RETURN 

ASC Of conversion grades-5deci 


FA] 
= 
fil 
i 
: 
É 
i 
É 


4 


460 INPUT "Latitude farades) "aile 
470 INPUT "Longitude grades) "alc 
AOÛ LamVél ClatH)kkz 

490 gasVâLlElonsieks 

300 RETURN 

AIO ee entree decimale directe 
320 INPUT Latitude (degrés decimaux) " 


O ® 
3 + 
Du 


la 

# 

340 INPUT "Longitude Cdegres decimaux) " 
iQ 


40 RETURN 


10 ‘Decompogition des coordonnegs 
20 Gecgraphiques en  OTH Locator 
340 © 

0 INPUT "Latitude "sla 

80 INPUT "longitude "sga 

100 ’Determine carres en LONGITUDE 
110 ? 

L£Q ga=(ga+1@0)/#0 

130 PRINT ga 

140 Qqei=INT(ga) 

150 PRINT qgci 

160 molistga-gci)s«10 

170 PRINT moi 

180 pole (mel-INT(mel))xzé 

190 PRINT pci 

O0 cariréStaci: car e4R+INT (meliscarisés 
+INT(pel) 

H20O PRINT CHRS (car 1): CHRS (card): CHR#S car 
3) 

300 ‘Determine carres en LATITUDE 
310 

GEQ la=(la+60)/10 

330 PRINT la 

340 Qgef=INT(1a) 

330 PRINT gcc? 

36Û mer=(la-gc#)+k10 
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370 PRINT mcox 

300 pois (mes INT (Mmes) dr 

390 PRINT pc* 

AOÛ caréeéñ+ogcis car 4m4R+TNT (mer) scarérés 
+INTIpEZ) 

ASC PRINT CHR# (Cars) s CHRS Ccar4is CHRSé(car 
à) 

A0 âsesemble les caracteres LOCATOR 

310 * 

HEC QUE CHRSE (car 1) +CHRS cars) +CHRS (cars 
+ CHRS € caur 4) +CHRE CcarS i+CHRS(car6b) 

30 PRINT'LOCATOR "saqthé 
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CONTEST 


Le suivi d'un concours VHF/UHF par ordinateur est une des applications les 
plus courantes de la micro-informatique : elle permet de soulager l'opérateur de 
taches répétitives, telles que la recherche des doubles, le calcul des distances 
(et celui des points dans le cas de l’utilisation d’un multiplicateur). 

Le role du logiciel sera de : 

- Tenir à jour la feuille de concours (pour les possesseurs d’une 
imprimante tout particulièrement). 

- Eviter une liaison "double" en prévenant l'opérateur qu’ elle a déjà 
été effectuée, 

- Calculer les distances correspondantes par le procédé du LOCATOR. 

- Informer l'opérateur des performances déjà réalisées : meilleure 
liaison (DX), mouenne kilométrique par contacts établis, numéro du prochain 
contact pour la constitution du groupe de controle passé au correspondant. 

- Afficher l'heure automatiquement, en datant les liaisons sans 
intervention de l'opérateur. Ce paramètre horaire n'étant plus passé par les 
opérateurs mais demeurant indispensable sur le compte-rendu pour le controle de 
validité des liaisons établies. 

- Permettre à tout moment l'interruption du concours pour prendre 
quelque repos "bien mérité", sans avoir à laisser la machine sous tension. 
Cette fonction est réalisée par l'écriture de fichiers sur la disquette (ou sur 
la cassette après une petite adaptation du logiciel). 


LES CARACTERISTIQUES DU PROGRAMME. 

Le travail s'effectue sur écran et le mode 80 colonnes a bien sur été 
retenu compte-tenu des possibilités de l’AMSTRAD, Nous avons profité des 
"fenetres" de l’AMSTRAD pour réaliser une présentation agréable. 

L'utilisation d'une disquette est fortement souhaitable bien que la 
cassette puisse etre utilisée, moyennant une modification des lignes contenant 
la sauvegarde et la relecture des fichiers, 
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De meme, 51 l’utilisation d'une imprimante est également souhaitable, elle 
n'est pas nécessaire... sauf pour rédiger le compte-rendu final. Cette tache 
pourra etre accomplie avec un bon vieux stylo si l'imprimante ne tient pas 
compagnie à votre AMSTRAD. 

500 050 peuvent etre mémorisés dans la machine, ce qui représente une 
participation plus qu'honorable. 


UTILISATION DU PROGRAMME. 

Après chargement, l'ordinateur demande le LOCATOR de la station effectuant 
le concours ainsi que l'indicatif, 

Si des liaisons avaient été réalisées auparavant, le chargement des 
fichiers correspondants sera réalisé. On entre alors dans la boucle principale 
du programme... 

Un menu est affiché à l'écran, après une remise à l'heure de la pendule, 
La machine attend alors l'entrée d'un indicatif ou de l’une des 3 options: 

- $ pour sauvegarder les fichiers. 
- E pour lister les liaisons établies sur écran. 
- P pour lister les liaisons sur imprimante. 


Si vous entrez un indicatif, la machine va vérifier que la liaison n’a pas 
dé jà été établie... Cette vérification effectuée, vous serez autorisé (ou non) à 
réaliser le contact. Vous devrez alors introduire à nouveau l'indicatif puis les 
différents paramètres du *QS0". La machine vous demandera enfin si vous validez 
la liaison, Dans ce cas, elle est prise en compte et les totaux sont 
réactualisés...sinon, il est toujours possible d'annuler la liaison. 

E où P permettent de lister tout ou partie des “Q60" établis, La machine 
vous demande à partir de quel numéro et jusqu'à quel numéro doit se faire le 
listage. À son issue, on revient dans la boucle principale du programme. 

5 vous permet de sauvegarder les données déjà en machine, pour interrompre 
le concours... où par simple précaution prévenant une coupure de courant ! 

Dans le cas d'une sauvegarde, les opérations d’entrée/sortie inhibant les 
interruptions indispensables au fonctionnement de la pendule, il sera nécessaire 
de le remettre à l'heure comme vous y invitera le programme. 


Le sous-programme de calcul des distances est extrait du programme 
LOCATOR et, grace aux fonctions DELETE et RENUM, si vous etes un peu astucieux, 
vous ne le taperez qu'une seule fois, 


Construit en “petits modules", ce logiciel pourra etre adapté à vos 
besoins, les seuls commentaires particuliers portant sur la structure des 
fichiers. Le fichier des indicatifs contient... les indicatifs des stations déjà 
contactées, celui des données contient la “concaténation" des différents 
paramètres de chaque liaison, formant ainsi autant de chaines de caractères 


qu’il y a d’indicatifs. Ce procédé à été retenu pour établir un compromis entre 
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les tenps de chargement et sauvegarde, l'occupation mémoire, et la 
simplification de la mise en page sur écran. 

Ne pouvant préjuger de la longueur des fichiers, fonction du nombre de 
contacts déjà réalisés, lors du chargement, on testera l'indicateur de fin de 
fichier (EF), d'ou le role de la ligne : 

WHILE NOT EGF: INPUT #9 etc. 

Un dernier conseil : attention au rangement et à la protection de votre 
disquette ou cassette fichiers. 5i vous avez un quelconque doute sur le risque 
de coupures de secteur, deux sauvegardes valent mieux qu'une ! 


MODULE CALCUL ET AFFICHAGE DE L'HEURE 


Nous avons inclus dans le programme CONTEST un module permettant d'obtenir 
l'heure en permanence, ce qui permet de dater les liaisons établies. Ce 
sous-programme ?PENDULE’ est controlé par les interruptions système. 


Il existe plusieurs types d’interruptions sur les CPC, Nous avons utilisé 
ici les évènements asynchrones et plus exactement le FRAME FLYBACK c'est-à-dire 
le retour du spot de balayage écran. Cette interruption intervient tous les 
1/50èmes de seconde, Les équivalents ‘soft’ de ces interruptions sont appelés 
sur le système CPC EVENTS’, Leur manipulation est un peu délicate et nous vous 
renvoyons aux divers documents déjà publiés sur cette machine pour en avoir une 
description complète sortant du cadre de ce livre. 


À chaque EVENT’ est associée une zone mémoire, utilisée par le système, 
que le programmeur doit définir. Le registre double HL contient l'adresse de 
cette zone mémoire. La routine qui sera exécutée à chaque interruption a son 
adresse contenue dans DE. € contient une valeur fonction de l'adresse mémoire 
mémoire de la routine d'évènement (selon qu’elle est en RAM, ROM, ROM externe.}, 
Le registre B contient la classe’ définissant le type d’évènement. 


Pour plus d'informations sur l’utilisation de cette particularité des CPC 
nous vous suggérons de consulter le *FIRMWARE’ (Soft 158 chez AMSOFT). 
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LISTING ASSEMELEUR COMMENTE DU SOUS-PROGRAMME HORLOGE 


;QTROÏD LE 16/09/85 


L 

TOP: EQU DASODH 
EVENT: EQU DASO6H 
FRAME: EQU DECD7H 
WRCHR: EQU OBRSDH 
SETSTR: EQU OBBB4H 
SETCUR: EQU OBB75H 
GETCUR: EQU OBB78H 


3 


3 

DEFS OFH 

0RG DAS1OH 
LOAD OAS1CH 
NEMFRA: LD HL,EVENT 
LD B,81H 

LD C,0 

LD DE,FLYTOC 
CALL FRAME 
RET 

FLYTOC: LD HL, TOP 
DEC (HL) 

JR NZ, FINAL 
: SECONDES 

LD A,50 

LD (HL),A 
CALL PLUSI 
CP 60 

JR NZ,FINAL 
LD À,0 

LD (HL),A 


CALL PLUSI ;UNT. MINUTES 


CP O3AH 
JR NZ,FIN 


CALL PLUS 3DIZ. MINUTES 


CP 36H 
JR NZ,FIN 
LD A,30H 


LD (HL),A  3RAZ DIZ. MIN. 


CE LISTING NE DOIT PAS ETRE SAISI 


Définit l'adresse basse des compteurs de l’horloge 
Adresse de la zone mémoire réservée au système 
Routine FRAME FLYBACK 

Ecriture d’un caractère sur l’écran 

Création d'une fenetre 

Force la position du curseur 

Lit la position présente du curseur 


Réserve pour compteurs et routine système 
Initialisation du bloc EVENT pour prévenir le 
système 

FLYTOC est la routine d'interruption 

Top toutes les 20 ms 

Gi FOP non nul, on sort de la routine sans modifier 
l'heure affichée... 

Remet TOP à sa valeur initiale 


Incrémente le pointeur pour lire les secondes 
Si <+60 on sort 


Remet secondes à zéro 


Va lire le compteur des minutes 
Test de dépassement (9) 


Va lire le compteur des dizaines de minutes 
Test de dépassement (36) (Minutes :59) 


Bemet à zéro si c'est le cas 


HEURES TEST +33 7 


INC HL 

LD À, CHL) 
CP 3H 

JR NZ,NEXT2 
INC HL 

LD A, (HL) 
CP 32H 

JR NZ,NEXTI 


Teste pour savoir si on a atteint 23459 


324H RAZ HEURES 


LD À,30H 
LD (HL),A 
DEC HL 

LD (HL),A 
JP Z,FIN 


Remise à zéro dans ce cas 


3INCREMENT HEURES 


NEXTI: DEC HL 
NEXT2: INC (HL) 
LD A, (HL) 

CP O34H 

JR NZ,FIN 

CALL PLUS 


FIN: CALL GETCUR 
PUSH HL 

LD A,04 
CALL SETSTR 
PUSH AF 

LD Hi 

LD L, 1 

CALL GETCUR 
LD HL,EVENT 
CALL ECRIT 
CALL ECRIT 
LD À, 34H 
CALL ECRITZ 
CALL ECRIT 
CALL ECRIT 


Incrémentation des heures sinon, 


Ici commence la routine d'affichage 


Quelle est la position présente du curseur ? 

Ün la sauvegarde. 

On va afficher l'heure dans la fenetre No 4 
Sélection fenetre et sauvegarde ancien 

No de fenetre {là ou était le curseur) 

Positionne le curseur dans la fenetre d'affichage 
réservée à l'heure 


Pointe sur la zone mémoire contenant les caractères 
formant l'heure (à partir de 8AS06) et les affiche 


séparant heures et minutes par le signe ’:° 


5 REMET LE CURGEUR A SA PLACE 


POP AF 

CALL SETSTR 
POP HL 

CALE SETCUR 
FINAL: RET 


Récupère l'ancien No de fenetre 

et le rétablit 

Récupère l'ancienne position du curseur 

et le remet à sa place 

C'est fini... On revient continuer le programme. 


6/P c'incrémentation des compteurs H,, où & 
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PLUS: LD 4,30H Remet à zéro le compteur inférieur 


LD (HL),A 


PLUS: INC HL Incrémente le compteur suivant 


INC (HL) 
LD A, (HL) 
RET 


ECRIT: DEC HL 


S/P d'écriture des différents caractères de l'heure 


11 faut savoir que, par soucis de simplification 


LD À, (HL) on a utilisé directement les valeurs code ASCII 
ECRITZ: PUSH HL des caractères formant l'heure pour les afficher, 
CALL WRCHR Celà peut paraitre curieux mais c'est bien plus 
POP HE simple à gérer... 
RET 
END 

100 MERE HE DE RE HD EEE EE EE EEE DER EE 

1010 # # 

10E0 * # CONTEST # 

1030 * # # 

1040 * FIEZH FéGKQ # 

1050 # # 

1080 ? *# (CC) EDEN Software 65 *# 

1070 ? # # 

1080 ROME DEEE HERO HE RE MEME ME HE ED ME DE EE RE HE 

10680 GOSUR 10000: Implantation routine 

QTR 

LI a $e "ARR se DB OH HR" 

1105 DIM U$(00),V8(%00) 

1105 MODE X:GO0T0 2000 

1300 ee ENTREE AVEC OTH$ SORTIE CI 

NTÉDIST) 

1510 QTHS=UPPRERS COTHSI2:FOR iei TO érc(i) 

SASC (MIDS Cathé,i, L))s:NEXT 

ASEQ Fee CALCUL LATITUDE ET LONGITU 


DE 


LON=-180+CCC1)-65 7) #04 CC(S)-4B KE 


C(S)-é4. 5) /1E 


1540 


LATE=-QQ+CCCE)-S5)KHIOEC C4) 484 CCC) — 


64, 5)/24 


1545 
1547 
13530 


IF 4A“>0 THEN 1560 
Aâ=1 :LASLAT : GA=LON: RETURN 
Femme CALCUL DE LA DISTANCE ---- 


1560 1b=latsghelon:dg=ga-gh 

1570 a=SIN(la/180+xPI) 

13580 BESINCIbD/1R80KPT) 

1590 c=COoS(la/1iS0#PI) 

1600 deCüSCib/180&PT 

1810 e=CoS(da/1S0xPT) 

LOÉET He CakD)+CcEc#e) 

LOST acgue-ATNOH/GQR (us 341,570 
Léa diste=111.323s(acex/PIx10) 

LSQ DISTECINTIDIST) 

Lédli RETURN 

HOOT eee PRESENTATION eee 

EOICO MODE LINK QI: PAPER OQYINK 1,24: PEN 
1'ÉORDER LeWINDOW #1,68,231,7,17:INK 35,8: 

PAPER #1, 3: CLOHIs INK ZOO: PEN #1, 


SOC PRINT Hi: PRINT #1," CONTEST" 
ÆO3Q PRINT His PRINT #1," SUIVI DE CONC 
QURS" 

2040 PRINT His PRINT #1," FiEZH ET Fé 


GKQ" 

O0 PRINT HI: PRINT #1," "aCHRS(lé4)s" E 

DEN Software 19685" 

ÆO80 PRINT Hi: PRINT #1," CPC 464 et 

64" 

2070 LOCATE HO, 7,Æ14 PRINT "< 4PPUYEZ SUR 
UNE TOUCHE x" 

2080 WAILE INKEYS#æ" "3: WEND 

2090 MODE Z3INK Qi: PAPER O:CLS:INK 1,0 
#PEN Les BORDER 13 

2500 ââ=0 

600 LOCATE £0,10: INPUT "Votre LOCATOR S 

VP "iQTHS 

2610 QRAB=OTHE: GOSUR 1300 

PhEQD LOCATE EU, 128 PRINT "Latitude os "su 

SING b$:lat 

630 LOCATE E35,13:PRINT "Longitude s "su 

SING bé&s:lon 

2650 LOCATE 20,15:INPUT "Votre INDICATIF 
"eNDIS:NDIS=UPPERS (NDI#) 

2700 LOCATE 10,18:INPUT "Reprenezr-vous 1 

e concours apres une interruption O/N "3 

Msn BeUPPERS (ré) 

E7IQ IF récir "Oo" AND réertNt THEN #700 

E7EC IF vée"N" THEN 3000 

MBOQ eee RELECTURE DES FICHIERS —-- 


58 


2815 PRINT:PRINT "Preparez le lecteur et 
le support magnetique pour la lecture d 

es fichiers Appuyez ensuite sur un 

e touche..." 

2817 WAILE INKEY#&=""3:WEND 

2820 OPENIN "FARM" 

2830 INPUT #9, CUM, MOY, DER, DX 

2840 CLOSEIN 

2845 PRINT:PRINT'Lecture du fichier PF&RA 

METRES terminee" 

28350 OPENIN "INDIC"sN=i 

2860 WHILE NOT EGF3: INPUT H9,USCN):N=N+i 8 

WEND 

“870 CLOSEIN 

2875 PRINT:PRINT'Lecture du fichier INDI 

CATIFS terminee" 

2880 OPENIN "DATAS":N=1 

2890 WHILE NOT EOGF: INPUT #9, VS CN): N=N«+i 

WEND 

2900 CLOSEIN 

2910 PRINT:PRINT'Lecture du fichier DONN 

EES terminee" 

#JEO PRINT:PBRINT'Rangez le support magne 

tique et pressez une touche" 

2930 WMHILE INKEY#&æ"":WEND 


3000 *-----— DEBUT ET MENU PRINCIPAL —— 
3O1O eme REMISE à L'HEURE DE L'HORL 
OGE 


300 CLS: PRINT:PRINT "Remise a l'heure d 

e l’horloge " 

3030 PRINT:FRINT "Entrez l'heure sous la 
Forme HHMNM" 

3035 PRINT:INPUT "âu top horaire, appuye 
z sur RETURN M3sûTRé 

3040 IF LENCOTR#)LI:4 THEN 3070 

3050 FOR nel TO &scarrô4SC (MIDS(OQTRE,N, 1 
3) 

3060 POKE &SSOé-N, CAR:NEXT:POKE &A500,50 
2POKE &AS501,0 

3070 CALL &43510:° Relance l'horloge 

3100 CLSsRE=". Us IF DER=Q THEN DER=1 
3105 WINDOW #1i,1,80,1,13:P4APER #1,0:CLS 

Hi: PEN #1,1: ‘Ecran travail 

3110 WINDOW HE,5,30,19,24: PAPER #E,13:CLS 
HZ: PEN HE,0: ‘Ecran options 


120 WINDOW HS, 50, 75,19, 4: PAPER HI, le CL 
S HI:PEN #3,0:'Ecran suivi 

130 WINDOW #4, 30, 42, 25, 253 PAPER 4, ie CL 

S Hé: PEN H4,0: Ecran OTR 

135 PRINT #4, CHRS(CPEER C&ASOS )): CHRSÇCPEE 

FC &ASCé) ut rt CHRECPEER(EBASOS) D : CHRSCPEE 
KR CB&ASCRES 

31401 WINDOW 4#5,5,75,14, 14: PAPER #5, 13:CLS 
HS:PEN #S,0: Ecran repere 

3130 WINDOW #6, 3%, 48,19, Z4s PAPER Hé, Os CL 

SO HGIPEN Hé, lis Ecran entrees 

Ge PRINT KE," Entrez INDICATIF ou :° 

210 PRINT #% 

GEO PRINT HE," 6 Sauvegarde des donnees 
BEA PRINT HE," E Listing sur Ecran’ 

G40 PRINT HE," P Listing sur Imprimante 
4050 PRINT #5,"Indicatif":TABCE#0)"OTR'ET 

AP CEG)"LOC" Es TÉAR C4)" PASGE" 2 TÉR #1 3 "RECU 
STAR CSE)VDIST" 

4100 FOR nei TO 1H: PRINT HIis:NEXT 

4150 WMHILE LEN(Cr#H)Eris: CLS Hé: PRINT #6 

4160 CLS #3: PRINT #3 

4165 PRINT #3," Prochain Q60 No :"3;USING 
a$:der 

417 PRINT #3," Cumul des Points: "sUSTING 
a$ :; Cum 

4175 PRINT #3," Distance moyennes" :#USING 
a $ 5; MOU 

4180 PRINT #3," Meilleur DX s"s USING 
a$:dux 

4200 INPUT Hé, '"Tnd "ares RÉ=UPPERS Cr) 

HESO IF récit Et AND réertEt AND ré<rtpr 
THEN indéeré ELSE GOTO S0QQû 

HRGQ eee RECHERCHE D'UN DOUBLE 
4270 FOR i1=0 TO der 

ETS IF indé MIDS(Cu#(i),1,LEN(Cind#ii T 
HEN NEXT:GOTO 4300 

4200 CLS Hés PRINT Hé: PRINT #é,'"Deija cont 
acte 

HEC FRINT #$6,"080 na "ai 

HEGÛ PRINT CHRSCFIEUMILE INKETSeN" 2 WENT 
:GOTO 4150 
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4300 PRINT #6, "0850 Mes FRINT CHRS# (T7): INPL 
T #6, "O/N'srepé:repé=UPPERE(rené) 

4310 IF rep#$ir"o" THEN 4150 

4SE0 CLS Hé: PRINT Hé: INPUT #é,"Ind "sind 
SsindB=UPPERS (indé) 

4500 INPUT #6,'"Loc "roathésqthé=UPPERS (at 
H$ ) 

4550 INPUT #6, "Mon ":gr# 

4600 INPUT #é,'"Son ":qp# 

4605 QTRÉECHRE (PEER C&AS OS 3 +CHRS PEER (8 
304) )+4" 2 M4CHRE (PEER C&AS OS 5 I+CHRE (PEER C&é 
30%)) 

4850 INPUT #6, "Valide (O/N) irephirepée 
UPPERS (rep) 

4700 IF rep#="N" THEN 4150 

4710 GOSUR 1500: dt#=STR#(disti 

4750 véider)=aqgtré+" +gthé+" +gpé+" ï 
+qr+" "+até 

4780 uS(der)=zindé 

4600 PRINT #1, TABR(S) indé; TAB Z23)oqtré: TA 
(30ath$s TAB(38)gp#: TAR(4S)gré: TABISI)US 
ING absdist 

4850 cumecum+distesmoyecum/dersTF DIST:DX 
THEN DX=DIST 

4860 DER<DER+1 :WEND 

3000 ?----- GAUVEGARDE DES FICHIERS —- 
3050 IF R$<:'"S" THEN 6000 

5060 CLS :PRINT:PRINT 

3070 PRINT'PREPAREZ LE LECTEUR POUR Lé S 
AUVEGARDE DES DONNEES ET PRESSEZ UNE TO 
CHE" 

3080 WHILE INKEY#="":WEND: PRINT CHR# (7) 
5100 ?’------. SAUVEGARDE DU FICHIER PéRé 
METRES 

5110 OPENOUT "PARAM" 

3120 PRINT #9, CUM, MOY, DER, DX 

3130 CLOSEOUT 

5140 PRINT:PRINT'SAUVEGARDE DU FICHIER F 
BRAMETRES EFFECTUEE" 

5200 7------— SAUVEGARDE DU FICHIER INDI 
CATIFS —--—--—- 

5210 OPENOUT "INDIC? 

3220 FOR Nei TO DER:PRINT #9, US (CND:NEXT 
3230 CLOSEOUT 


240 PRINT: PRINT'SAUVEGARDE DU FICHIER I 
NDICATIFS EFFECTUEE" 
HO ------- SAUVEGARGE DU FICHIER DES 
DONNEES ee 
5310 OPENOUT "DATAS" 
JJe0 FOR Neil TO DER:PRINT #9, VEND: NEXT 
5330 CLOSEOUT 
340) PRINT:PRINT'SAUVEGARDE DU FICHIER D 
E DONNEES EFFECTUEE" 
400 PRINT: PRINT'RANGEZ LE SUPPORT MAGNE 
TIQUE EN LIEU SUR !" 
4 PRINT :PRINT: PRINT :PRINT'PRESGEZ UNE 
TOUCHE POUR POURSUIVRE, 
430 WHILE INKEYS=""s:WNEND:s PRINT CHRS (7) 
3450 GOTO 3600 
6000 ee GORTIE DU LISTING SUR ECRé 
NO OOU IMPRIMANTE eee 
6050 IF R<EUPT THEN 6150 
6080 CNES 3: GOTS $& 1 60 
ISO IF RSSNE" THEN Réet.. ,:GOTO 4150 
6155 CNel 
6160 CLS:WINDOW #1, 1,80, 1,20: P8PER 41,0: 
CLS HIsPEN 41,1 
200 WINDOW HE, 1, 090,21, 25: PAPER HE, ls CLS 
Hs PEN HE, 0 
670 Tee SAISIE GE DONNEES DEBUT ET 
FIN DE LISTAGE ee 
6710 INPUT KE, "Numero de QS0 pour le deb 
ut du listage ":deb 
73 INPUT KE, "Numero de Q60 pour la fin 
du listage "sfin 
673$ IF FINYDER-1 THEN FIN&DER-1 
8740 IF CNel THEN 6800 ELSE PRINT ##, "PR 
EPAREZ L'IMPRIMANTE ET PRESSEZ UNE TOUCH 
E" 
67350 WHILE INKEYSæ" 0": WENT 
6760 PRINT #8, "Station "sUPPERS(ndié)sTé 
B(S#)"Locator iUPPERSCORAS) 
6770 PRINT HB: PRINT #6 
6740 PRINT #8, "Indicatif"sTAB(CS1)"OTR'aT 
AE CG1)"OTHISTÉR (40) "Passe": T4R(48) "Recu" 
3 TABC&ST) "Distance" 
see PRINT HG, Meme: 
TAB (30) "=mmmme" ;TAB(AD)"ae ES 
Re nn AR C0) Massenet 


790 PRINT Hs PRINT #8 





62 


89800 FOR nedeb TS fin 


8810 disteVél (RIGHTS Cv (nn), LENCvVS ni) 
3) 

SRE aqtréeMIDS Cv n)i,1,5) 

GAGQ qthéeMIDS CE Cn),7, 6) 

GBA QapheMIDS Cv (mn), 15,55 

6850 gréeMIDSivé (ni, ZE, 3) 

900 PRINT #éon) aus in) sTARCZCD sqtr 8 TéEC 
30) sath$: TAB(40) sGpts TAB(A4B) gr: FAR 60) 
USING a$:dist 

6930 NEXT 

780 CLS #Hés PRINT: PRINT HE, "FIN DU LISTS 
GE. PRESSEZ UNE TOUCHE POUR CONTINUER, 
4970 PRINT CHRSCTIaWMILE INREY gants WEND 3: 
GOT 4100 

LOGO eee HORLOGE  &  AFFICHÈGE — 
1OO10 MEMORY &GA4FFsIFOR Ne&AS Ii TO &AS9C: 
BESD Dé: PORE NVAL  CPEP ADS) ss MNEXT 

LOCTEC RETURN 






LOCSO DATA ET, 06, À5 06, Q1, QE, OUT 11, 1Es Cu 
10060 DATA CD, D7,BC, C9, #1, O0, A5, 35 s 3 
10070 DATA 3E, 32, peurs ds 
10080 DATA GE, 00,77, CD, 71, 
10090 DSTA CD, SE , SSFE, 
10100 DAT © 3, 
10110 DATA : 
IQ DÉTÉ 
10130 DSTé CD, 
10140 DATS SOL, GE, | 
10180 DATA CD,9S, 43, CD, 95, 85. 
10160 D8Té A5, CD, 75, 83, à 
10170 DATA BE, El, CD, , 
10180 DATÉ 34,7E,C9,2E,7E 
10190 DATA C9 











See 
,7E,FE, 3 
Cés G0 4 5 
13° CD 8E pe 
CD, B4,BB,E 

nu BBuëd re 
E,34, CD, 97 
«CD, Br 
Fu 
1 FRET 











Dé. 
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MIRE TV 


L'ordinateur va combler les passionnés de télévision. Est-il besoin de 
rappeler que les radioamateurs licenciés sont autorisés à pratiquer des 
émissions de télévision sur des fréquences qui jeur sont réservées 7 L 
programme proposé pourra également servir au réglage de couleurs ou à quelques 
menues retouches sur un téléviseur où un moniteur. Les amateurs de vidéo 
pourront, quant à eux, utiliser la mire pour leurs vidéo-cassettes.,, Attention, 
dans ce cas il sera nécessaire de faire appel aux services d'un codeur cl zi 
on veut profiter des couleurs, à moins d'avoir La chance de posséder un 
magnétoscope muni d’une entrée RVB. Expliquons nous... 


La sortie couleur de 1’'AMSTRAD se fait en R VB + Sunchro, Ii n° 
proprement parler, de codage couleur, Une sortie “inace: pere 
couplage sur un moniteur monochrome où à une entrée vidéo auelconque (émetteur 

TV, magnétoscope etc,}... mais en noir et blanc. Pour obtenir des couleurs, 
faut impérativement combiner les signaux R V B où les utiliser directement sur 
une entrée du meme nom (exemple : pride PERITEL!. 


Les couleurs produites par L’'AMGTRAD sont de fort belle qualité, Elles ont 
été choisies pour rappeler ceiles que nous voyons sur les mires diffusées par Île 
réseau national. L'ordre choisi permet d'obtenir un dégradé de gris eur un écran 
monochrome. 


utile à l’amateur-6metteur pour juger de la qualité de réception de son sigral 
chez son correspondant, 

Une horloge a été intégrée au programme et vient afficher l'heure en haut 
de la mire. L'indicatif de la station d'émission, où tout autre texte mogernant 
une petite modification de logiciel, s'inscrit dans le bas de la mire, 

Le format choisi est un format rectanquiaire par souci de simplification, 
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Certains caractères de la police de !'AMSTRAD ont été recéfinis pour les 
besoins du programme. C'est le role des lignes 1240 à 1340, Ils permettent 
l'obtention de barres verticales plus ou moins raporochées, 

Pour obtenir les six couleurs nécessaires (plus le gris du fond}, il a 
été nécessaire de travailler en MODE 0. 

Les couleurs sont redéfinies, pour les différents encriers, à la 
1370. 


ligne 
Le listing est ensuite suffisamment commenté pour que le lecteur retrouve 
aisément le role des différents groupes de lignes, 


Nous nous attarderons simolement un peu eur la fonction horloge. Elle à 
été obtenue en utilisant le controle des interruptions permis par le BASIC de 
l'AMGTRAD. La commande EVERY permet d'accéder à un sous-programme tous les À 
laps de temps. Ici, notre pendule bat a minute. La programmation du chronomètre 
qui permet cette gestion d'interrugtions se fait par multiples de 20 ms d'ou le 
3000 de la ligne 2000, 

L'heure est demandée lors du lancement du programme, sur 4 caractéres, Le 
sous-programme en 1110 exécute le comptage du temps. Vous remarquerez que nous 
avons choisi de travailler, non sur des compteurs de 0 à 60, mais directement 
sur les codes ASCII des chiffres à afficher. Point n’est alors besoin de jongler 
avec les STR$ et d'ajouter ün 0 devant ie chiffre à afficher quand heures ou 
minutes sont inférieures à il, 

Un compteur particulier (HEURE) permet de détecter le passage à 24 heures 
pour afficher 0000. 

Une dernière remarque... La ligne 19350 utilisant la fonction KEY permet de 
remettre l'ordinateur en MODE 2 lorsque l'on quitte le programme MIRE, 


LOOQ HOMO HERO OHE DE DE JE DE MORE XE 
1010 + * 
10:00 ’*+ MIRE TV # 
LOGO 7 + # 
1040 x Cc)i EDEN Soft + 
1050 ? + * 
1060 7x CPC 4ôé4 & bébé 
1070 ? + * 
1080 ?HHOMUOHREOHEUHREOHOME DEEE DER EOME 
10$0 ? 

1100 GOTO 1#10 

LAC ?---- S/P incrementation horloge - 


11E0 MEM+1iIF ME5S THEN 1190 
1130 ME4B:MMEMMHliTF MMES4 THEN 1190 
1140 MM=46 : HeH+i : HEUREHEURE-+1 
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1150 IF HEURE:Z4 THEN 1170 
1160 HEURE=QO:H=49: HH=48:GOT0 1190 

1170 IF H£58 THEN 1190 

1180 H=48:HH=HH+1 

1190 LOCATE 9,3:PRINT CHRSCHH) 3: CHRECH) 3 C 
HRE (MM) : CHRS CM) 

1200 RETURN 

1210 ind$="FDiXVZ" 

1220 MODE 1: PRINT:PRINT 

1230 INPUT "ENTREZ L'HEURE SOUS LA FORME 
HHMM "35 HHE 

1240 SYMBOL AFTER 129 

1250 SYMPOL 139,295,295,295,295,295,259, 


1260) SYMBOL 140,740, 740,240, 240,240, 240, 
240, 240 
1270 SYMBOL 141,231,231,231,221,231,231, 
231,231 
280 SYMBOL 142,204,204,2704,204, 204,704, 
204, 204 
1290 SYMBOL 143,219,219,719,719,219,%19, 
219,719 
1300 SYMBOL 144,51,51,51,51,51,51,51,51 
1310 SYMBOL 145,170,170,170,170,170,170, 
170.448 
1320 SYMPOL 146,85,85,85,85,85,85,85,85 





1330 SYMBOL 147,0,0,0,255,255,0,0,0 
1340 SYMBOL 148,255,295,295,0,0,295,255, 
255 


1350 KEY 11,'"ink Q,13sink 1,0:paper Ü:pe 
n iimode “:list'+CHR#&(13) 
1360 MODE CO:INK OQ,1iZ3:BORDGER O:P8PER O:CL 


S 


1370 INK 1L,O:INK ZL6és INK 3,0,%Z6:INK 4,7 

HzINK SEOSINKR G,IB:INK 7,7: INK 8,53: 1INK 
9,i:'Definition palette des couleurs 
1380 ?’----- Haut de l'ecran et emplaceme 
nt horloge ----- 

1390 FOR ye# TO 4 

1400 LOCATE ZusPEN Z:FOR Kei TO 6: PRINT 
CHRE (139): :NEXT 

1410 LOCATE SLu:PEN l:FOR xei TO S:PRINT 
CHRS (130) ::NEXT 


1420 LOCATE 14,usPEN Z3FOR nel TO &:PRIN 
T CHRSC139)::NEXT 

1430 NEXT 

440 ee Gros damier noir et blanc -—- 
1450 FOR yes TO 7 

1480 LOCATE Z,uysFOR nez 1 TO G:PEN 1:PRIN 
TO CHRSC139)3::PEN Z:PRINT CHR$S(139)::NEXT 


1470 NEXT 

1480 ---- Trace des couleurs —----- 
1490 FOR ye8 TO 10 

1500 LOCATE Z,u 

1510 FOR ce4 TO & 

1520 FOR nei TO S:PEN c:PRINT CHR#&(139) ;: 
NEXT n 

1530 NEXT c,u 

LISA fe Trace des barres blanches mi 
Lieu 

1350 PEN Z:FOR yei1l TO 15 

1560 LOCATE Z,u:FOR nei TO 18:PRINT CHRS 
(149) :NEXT 

1570 NEXT 

13980 ----- Couleurs au centre —---- 
1590 LOCATE Z,13:FOR ce9 TO 4 STEP -1:F0 
R onel TO JG:PEN cePRINT CHR#(ISOD)::NEXT n 
ÿ Ë 

LOC ee Trace des barres 

1410 PEN 1 

Léé0 FOR y=ié TO 18 

1830 LOCATE X,u:isFOR ne 1 TO Z:PRINT CHRÈ 
Clé 1) s :NEXT 


1640 FOR nel TO G:PRINT CHR$ (14) 8 2 NEXT 
1650 FOR nai TO 6: PRINT CHRS (1450) 3 :NEXT 
LééQ FOR nel TO G:PRINT CHR (142) 3 2: NEXT 
1670 FOR nei TG G:PRINT CHRSC1 41) 2: NEXT 


16890 NEXT 

L6P0 -----— Degrade NOIR GRIS BLANC —--—-— 
1700 FOR y=i9 TO 1 

1710 LOCATE Æ,y 

L7ZQ PEN 1:FOR nl TO é:PRINT CHR$(1397): 
INEXT 

1780 PEN Q:FOR nel TO &:FRINT CHR#(1390: 
ENEXT 


1740 
2NEXT 
1750 
1780 
1770 
1780 
1790 
:=NEXT 
1800 
s=NEXT 
1810 
:NEXT 
18:0 
:NEXT 
1830 
:NEXT 
1840 
1850 
18460 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
“000 
te 
“010 


PEN Z:FOR nel TO é&:PRINT CHR#C139)3: 
NEXT 

eee BLANC Indicatif NOIR —---- 
FOR yr£# TO 4 

LOCATE Z,u 

PEN £32FOR nel TO ZG:PRINT CHR#(139)3: 
PEN O:FOR nel TO Z:PRINT CHR#(C13953: 
PEN 1s:FOR nel TO &: PRINT CHR#(139): 


PEN O:FOR nel TO S:PRINT CHR#(139): 


PEN 1:FOÜR n=i TO G:PRINT CHR#(139): 


NEXT 

7----— Trace le cadre fin —---- 
PLOT #9,0,1:DR4W 8,399 

PLOT 610,0:DR4âW 410,399 

PLOT G,16:DR4AW 639,146 

PLOT 0,2384:DRAU 639,384 

---— Ecrit indicatif 

PEN G:LOCATE 8,23: PRINT INDS# 
----— Initialise la pendule -—---. 
PEN € 

HH=ASC(MIDSCHHS, 1, 1) ) 

H= AGCCMIDSCHHS, ZX, 133 
MM=ASC(MIDSCHHS,3, 1) 5 

M= ASCIMIDSCHHS, 4,10) 

HEURE=VAL (LEFTSCHHS, 2%) ) 

GOSUE 1190 

EVERY 23000 GOSUE 1120:°7 Fat la minu 


WHILE INKEY#=""2:WEND 
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EMISSION RECEPTION EN MORSE 


Nous avons tenu à décrire dans cet ouvrage un logiciel 
d'émission-réception en télégraphie, bien que la pratique montre que l'émission 
dans ce mode à partir d’un clavier n’est pas ce qu’il y a de mieux... Rien ne 
vaut le bon vieux manipulateur, pioche ou électronique. La réception, quant à 
elle, ne sera parfaite que si la manipulation de la station éméttrice est 
correcte. Supreme avantage du cerveau humain sur la machine, le premier arrive 
à interpréter ce que la seconde ne comprend pas tant ses critères sont strictes. 


Le décodage nécessite l’utilisation d'un circuit d'interface qui 5e 
connecte à l'AMSTRAD par la ligne EUSY' de la prise imprimante, (Ce circuit 
assure la conversion des signaux BF prélvés sur la sortie haut-parleur ou 
magnétophone du récepteur en niveaux logiques exploitables par l'ordinateur. 

Le meilleur résultat sera obtenu avec un récepteur muni d'un bon filtre à 
quartz prévu pour la CH. 


LE LOGICIEL 


Le iogiciel se compose de deux parties: l'émission, écrite en BASIC et la 
routine de réception écrite en langage machine. Bien que nous ayons incorporé 
les octets du langage machine dans des lignes de DATA, pour ne pas pénaliser les 
lecteurs ne possèdant pas d’assembleur, il nous a paru indispensable de fournir 
également un listing ASSEMBLEUR abondamment commenté, pour satisfaire la 
curiosité des amateurs de ce langage. 


Les possibilités de fenetrage de L'AMSTRAD ont été utilisées pour donner 


au logiciel un aspect plus agréable, 
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EMISSION 

Pour le 464, la question du relais émission-réception ne se pose past on 
ne peut avoir aucun accès à ses contacts... Par contre, pour les CPC 664 ot 4138 
on peut se demander s'il n'est pas opportun d'utiliser les services du relais de 
télécommande cassette pour manipuler l'émetteur en CH. 


Le relais de commutation cassette de Ll'AMSTRAD ect accessible sur le 
cordon magnétophone cependant, pour ne pas fatiquer inutilement ce relais, nous 
avons utilisé la sortie £F de l'ordinateur pour produire les sons. En couplant 
cette sortie (jack ‘stéréo') à l'entrée micro de l'émetteur, en passant au 
besoin par un préampli, il est possible de procéder à des émissions qui sont, en 
fait, de la pseudo-Ch. Si les puristes veulent modifier le programme, celui-ci 
étant en BASIC, il sera toujours possible de commander, dans !a partie émission, 
le relais de commutation. Attention toutefois à ne pas couper avec des courants 
trop intenses... 


Pour commander le relais, on aura recours à l'instruction OÙT du BASIC, Le 
relais est piloté par le PORT C du 8255 dont l'adresse est &Fbux, Le relais est 
cablé sur la ligne 4 du PORT C du PPI. Gn le programmera par! 


OUT &F800,16 pour le coller 
GUT &F600,0 pour le remettre au repos. 


La partie émission donne en fait accès à des messages mémorisés, 
l'ordinateur devant etre employé ‘en parallèle’ avec le manipulateur, 

Trois vitesses émission sont prévues, restant dans la moyenne de ce qui 5e 
pratique couramment sur l'air. 

Les messages mémorisés devront impérativement etre écrits en MAJUSCULES 
dans le programme, 

La tonalité et le niveau FF du sigral produit par l'ordinateur sont fisés 
à la ligne 19390 (variables ©TON et ’ORK') et pourront, si besoin, etre 
modifiées. 

âttention lors de l'introduction des codes MORGE, les virgules ont leur 
importance. 


Les différents messages disponibles sont constamment affichés à l'écran et 
sont désignés par leur numéro. 

La vitesse de transmission peut etre modifiée, meme en cours d'émission, 
par simple appui sur les touches ‘à? et €, 

L'appui sur ‘Q* permet de passer en réception, 


RECEPTION 


Le module de réception étant essentiellement écrit en langage machine, 
nous invitons le lecteur à se reporter aux commentaires correspondants. 

ün peut, tout en décodant, ajuster au mieux la vitesse, bien que ce 
réglage ne soit pas très pointu... 

Le retour en émission s'obtient par appui sur la touche *Q*. Les dernières 
lignes du texte recu ne sont pas pour autant perdues, l'écran effectuant un 
scrolling vers le haut. 


1000 * DE EE JE HE HE DE DE GE QE DE HE GE EH EE RE AE DE NE 
1010 ? # 3. 
10#0 ? # E/R MORGE + 
1030 *? # 3%. 
1040 * * FIEZH F6GKQ # 
1050 # je 
1080 * % (CC) EDEN Software 85 + 
1070 cs ge. 
1060 * REA RENE JE ME DEEE GE RE GE DE EE SE NON GE Ne 
1090 : 

L1QC0 


1110 MEMORY &SFFF:GOTO 1190 
1120 RENM Execution code MORSE 
1130 IF car$e" THEN SOUND 1,120, 3+#pt,Q: 


RETURN 

Li40 FOR kel TO LENCcargiseéz MIDE(caré, E 
nl) 

1150 IF e$s"." THEN dept ELSE dett 


1180 SOUND 1,ton,d,qrks SOUND 1,1#0,pt,û 
1170 NEXT E 
1180 GOUND 1,120, tt, Oz: RETURN 

1190 RENM Initialisations 
LEQCG REM Remplissage tables des codes 
110 DIM cod$(47)s: FOR neQ TO 47s READ c 
aod#$(nis NEXT 

1220 REM Implantation du code machine 
1230 FOR AD=8&900G TO &SIGI:RESD dés POKE 
ad, VAL CMEM+cS) 2: NEXT 
1:40 REM ee 

 . MODE 11INK OO, 1e P8PER O:INK 1,24: PEN 

: BORDER 1 :WINDOW (#1,8, 20,7, 17 INK CE 

ni. Hi, 3: CLSHIsINR 2, Os PEN #1i,7 


1260 PRINT HIi:PRINT #1," ERCW" 
1270 PRINT #Hi:PRINT #1," Emission Recept 
ion CW” 

1280 PRINT #i:PRINT #1," FiEZH ET Fé6G 
KQ # 

1290 PRINT #Hi:PRINT #1," ":CHR#(lé4ii" E 
DEN Software 1985" 

1300 PRINT #H1i:PRINT #1," CPC 464 et & 
64 n 

1310 LOCATE #0,6,Z20:PRINT "'âéjustez votre 
volume sonore" 

L3EQ LOCATE #0,7,21: PRINT et appuyez #&l 
r une touche" 

1330 LOCATE H#O,%, 24: PRINT'CLAVIER IMPERA 
TIVEMENT EN CAPS LOCK" 

LI40 a$=INRKEYSB:WMILE abz" "rate INKEYS:SOU 
ND 1,1240,5, 1#:WEND 

1350 REM Debut du programme principal 
1360 MODE Z:INK Q13: PAPER O:CLS:INK 1,0 
#* PEN 1:BORDER 13 

1370 WINDOW #3,1,80,13,25s: PAPER K#3,1:CLS 
HA: PEN #35, 

1380 WINDOW #1,1,80,1 ,12#:PAPER #1,0:CLS 
His: PEN #1i,1 

1390 aqrksllstons1l20Os VITE: TTebk(é-VIT):p 
t=TT/3 

1400 REM Table des differents messages 
1410 REM Ecrits imperativement en MAIUSC 
ULES 

L4ËCQ m$éCi)s=" Co CQ COQ DE FéGROQ/35 FéGKO/7 

5 FéGKQ/35 + K' 

1430 mé(C2)="GM DR OM ES TKS FR UR CALL = 


1440 MECI)="MY QTH IS NR RENNES RENNES R 
ENNES W FRANCE =" 

1450 MSC4)="LOCATOR IS IN9SDS INPBDA IN 
DA =" 

1460 MSCS)="MY NÔME IS DENIS DENIS DENIS 
1470 MECÉSI="RIG IS YAESU FT 77 80 WATTS 
ES ANT IG 4BTV VERTICSL 8NT =" 

1480 MSC7)="QGSL VIS BURO = 73 ES TKS FR 
NICE QS0O HPE TO CUSGN ES GD TFC =" 

1400 M$(S)="CQ TEST Co TEST CQ TEST DE F 
ÉGKQ FSGKQ FéEGKOQ PSE TEST K"' 

1500 GOTO 1760 


1510 REM Partie EMISSION 

1520 WINDOW #4,1,80,1,1%:PAPER #4,0:PEN 
#4, 1 

1530 WINDOW #3,1,80,13,25:PAPER #3,1:CLS 
HA: PEN #3,0 

1540 PRINT #3 

1550 FOR N=i TO BG: PRINT #3,Ns"— "MS CN): 

NEXT 

1560 PRINT #HS:PRINT #3:PRINT #3," 7€? D 
iminuer VITESSE 7x7 Augmenter VITE 
GSSE *Q? Quitter EMISSION " 

1570 LOCATE #4,1,10:PRINT #4, 

1580 TS=INKEYS:IF T$="" THEN 1580 

1590 TEVALITÉ):MESS=MS CT) 

1600 REM Decoupe et emet le message 

1610 FOR nel TO LENCmes$)i:c#é=MIDS(mes$,n 
x 1) 

L8EO PRINT #4, C3: 


1630 IF C$e" "THEN CARS=" "es GOTO 1650 
LéäQ car#bzcod$(4ASC(cH)-43) 

1650 GOSUR 1120: TH=INKEYS:IF Té="" THEN 
1700 


16680 IF T$é="Q" THEN NELEN(MES#):GO0TO 170 
( 


1670 IF T$="é" THEN VIT&VIT-1:IF VIT=O T 
HEN VIT=I 
1680 IF Té="2" THEN VIT=VIT+1:IF VITSS T 
HEN VIT=4 


1690 TTazék(ô-VIT)2:PT2TT/3:GO0T0 1700 

1700 NEXT:PRINT #4 

1710 IF T$='"o" THEN 1790 ELSE 1580 

1720 REM Partie RECEPTION 

1730 WINDOW #4,1,80,1 ,Z1:PAPER #4,0O:CLS 
Hé: PEN #4, 

1740 WINDOW #3,1,80, 22,25: PAPER H3,1:CLS 
#3: PEN #3,0 

1750 LOCÂATE #3,1,2:PRINT #3,"  ?<27 Dimin 
uer VITESGE +7 Augmenter VITESSE 

*Q? Quitter RECEPTION" 

1760 LOCATE #3,31,4: PRINT #3,"Vitesse a 
ctuelle :"s:s:PRINT #3,33: 

1770 FOR Neil TO IO: PRINT #4, :NEXT 

1780 CôLL &904ô: ? âppel du S/P de DECOD 

AGE 

1790 CLS HS:WINDOW #35,1,680,22%2,25: PAPER # 

JalisCLS HA:PEN #5.0 
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1800 LOCATE HS 20,2: PRINT #3," R Pour RE 


CEPTI 


ON 


E Pour EMISSION" 


1810 LOCATE #3,30,4:PRINT #3,"Votre choi 
"ss INPUT #3,cx8 

CLS HG:IF cx$="R" THEN 1720 

FOR N= 1 TO 1Z:PRINT #4,:NEXT:GOTO 


1820 
1830 
1510 
1840 
1930 
1860 


1870 
1880 


1890 
1900 
1910 
1920 





REM 


Table des signes MORSE 


REM Signes de ponctuation (45 a 475 


DATS 


“ 0 CAE “= 4 8 CR ol 0 C CRE] 


REM Chiffres (48 «a 57) 


DATA 


CC] 


CR CES qu Taumn ss 


CCR | CRE] CRC = 


REM Signes (suite) (56 a 64) 


DATÉ 


CU CC L] qu CEE | 


RE Lettres (85 a 90) 


DAT é 


L] 4 nn « CCE CC | 4. 


REM 

DATA 
DATA 
DATA 
DATA 


] DATA 


DATA 
DATA 
DATA 
DATA 


DATA 41 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATS 
DATA 
DTA 
DATA 
DATA 


CO os LR "s "7 


Code machine routine DECODAGE 
20,54,45,4D,4E, 41,49, 4F, 47, 4h 
44,57,52,55,53,20,20,51,54,59 
HT SB, 4, 48, 50, SS, 40,20, 46,56 
48, 30,39, 20,38, #0, 20, 20,37,20 
SE, 2E, 20 C0, 2P, 20,26, 21,20,02 
3F,20,78, 20,208, SZ, 0, 5P, 201, 45 
20,34, 35, 20,13.,08,00,00,08,03 
00,00,00,C0,SE,O0O1, 32,43, 90,3E 
O0,3%,40,90,%%, 47, FO0,S3E, 15,3% 
370,537, 44, 80,11, 00, 00,3E,0% 
es 40 90, CD, IP, BR, DC, 468, 91, CD 
2E,BD,38,F5, CD, 1B,BB,DC,48,91 
CD,ZE, BD, AOF, 38, 45, 90, 3F, CR 
Ru de ao 
CD,IP,EBR,DC,40,61,78, 43,90, 

CD,%E; D da 09,18,0* ee 
O1,P26,70,0D0,34,40,90, FE,FF,278 
OD,3C,32%,40,90,18, CC, 32,43,90 
Ed,FF,26,17,38, 44, V0, CR. 07,47 
Sa, #0, 60,80, 30,48, CB, OX, CR, COLE 
FE, O0, ST, 40, 80,18, DC, 38, 401, 90 
4F, CR O7. A1, 47, 34, 41, 70, CR, 07 
32,41, GC, B6,30, 1F, 38,40, 90, 47 
34.41,90,86,38,07,44,47,90,E4 








DATA FF,28,0E,3E,01,3%,4%,00,1C,34 
DATA 40,90,32,41,90, 18, C7, 34,40, GI 
DATA 32,44,90,3E,00,3%,4%,00,14,18 
DATA EA,74,00,CE,07,8B, C6,00,FE, 4l1 
DATA 38,04,3E,24,18,08,276,90,6F,7E 
DATA F5,3E,04,CD,P4,BE,F1,CD,5A,BE 
DATA 11,00,00,34,44,00,CPB,07, CB, 07 
DATA 87,00,00,00,47,34,40,90,E8,38 
DATA 05,3E,20,CD.5A4,PB,18,80,FE, 51 
DATA 20,02,E1,C9,FE,3E,20,0D,21,45 
DATA 90,7E,FE,09,2:8,15,34, CD, 70,91 
DATA C9,FE,3C,20,FPB,21,45,90,7E,FE 
DATA 01,28,04,35,CD,70,91,C9,CD,78 
DATA PP,ES,3E,03, CD,B4,BB,F5, 26,3% 
DATA 2E,04,CD,75,PE,34,45,90, C6, 30 
2330 DATA CD,54,BE,F1,CD,P4,BB,E1,CD,75 
2340 DATA BB, C9 





Dee CE LISTING NE DOIT PAS ETRE SAISI 

4 

ORG 9000H Adresse du début d'implantation 

LOAD 900CH 

3 

TABLE: EQU 900CH Début de la table de transcodage 

DR: EQU 9040H Durée de l'élément recu 

DP: EQU 9041H Durée du signal précédent 

LSTELT: EQU 9042H Tupe de lecture précédente (O=espace 1<6lément) 
LSTSIG: EQU 9043H Type du signal précédent  (O=point 1=trait) 
DURPNT: EQU 9044H Durée du dernier point recu 

SPEED: EQU 9045H Base de la vitesse de décodage 

4 

PORTE: EQU OF532H Adresse physique du PORT E (Pour BUSY imprimante) 
OUTVDU: EQU OBESAH Sortie d’un caractère vers l'écran 

CLAVIE: EQU OBPIPH Lecture du clavier (pour test différentes aptions) 
BUSY: EQU OBD2ZEH Lecture de ia ligne EUSY imprimante 

SETCUR: EQU OBP75H Positionne le curseur sur l'écran 

GETCUR: EQU OPE7EH Lit la position présente du curseur 

INVERT: EQU DBB9CH Pour affichage en vidéo inversée 


SETSTR: EQU OBBB4H Sélection du numéro de fenetre 


3 
; 
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ÿ-—— TABLE DE TRANGCODAGE —— 

DB 2CH,54H, 45H, 4DH, 4EH, 41H, 49H, 4FH Ici sont logés les différents codes des 
DB 47H, 48H, 44H,57H, 524,554, 53H, 20H des caractères pour leur affichage 

DB 204,514, 54H,594, 49H, 59H, 42H, 44H après identification du caractère MORGE 
DB 50H, 4H, 4CH, 20H, 46H, 56H, 48H, 30H et transcodage. 

DR 394, 204,384, ZOH, 20H, OH, 37H, 20H 

DB JEH, ZEH, 20H, 2CH, FH, 2DH, S6H, 31H Les caractères non utilisés sont forcés 
DE 20H, 22H, SFH, 20H, ZAH, 20H, 25H, 35h au code 20H (espace, 

DB 204,5EH, 20H, 33H, 20H, 4H, 35H, 20H 


$ 

L 

DS OAH Réserve les mémoires de travail 

L) 

î 

3 INITIALISATIONS -—- 

4 
LD A,1 Force les valeurs par défaut de toutes 
LD (LSTSIG),A les variables controlant le fonctionnement 
LD 4,0 du programme. Lecture srécédente était un 
LD (DRI),A élément, dernier élément recu était un point, 
LD (ESTELT),À durée du dernier recu était 15H, ainsi que 
LD A, 15H celle du dernier point recu. 
LD (DP),A Les compteurs POINT, TRAIT, ELEMENT sont mis 
LD (DURPNT),A à zéro. 
LD DE,G 
LD 4,3 La vitesse de décodage est initilaisée à 3. 


LD (SPEED), À 


37 ÂTTENTE D'UN ESPACE -—- 


ss 


; 

WAIGPC: CALL CLAVIE Test du clavier pour détecter si une touche 
CALL C,TSTKED est enfoncée. Si oui, décode la touche. 
CALL EUGY Boucle tant que l'entrée BUSY ect à i, 
JR C,WAISRC 

: 

3-—— ATTENTE D'UN ELEMENT —- 

HAIELM:  CALL CLAVIE Test du clavier pour détecter si une touche 
CALL C,TSTKERD est enfoncée, Si oui, décode la touche, 
CALL BUSY Joucie tant que l'entrée DUSY est à CO. 


JR NC, HAIELH 


j 
3 ECHANTILLONNAGE -—- 
4 


MESURE: LD A, (SPEED) Valeur initiale de la boucle d’échantillonnage. 
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CCF 


RLC À Multiplie la valeur de tempo par 4, 

RLE À 
LOGP2: LD B,CBCH Délai entre deux lectures (échantillonnage) 
LOGPt: DJNZ LOGPI 

DEC À 

JR NZ,LOGPZ 

CALL CLAVIE Test du clavier pour savoir si une touche est 

CALL C,TSTKBD enfoncée et la décode si c'est le cas. 


5——— LIRE ENTREE ET COMPARER AVEC 
LA LECTURE PRECEDENTE, 


we = ue 


LD A, (LSTSIG) Préserve dans R l’ancienne lecture. 
LD B,A 
CALL BUSY Lit l’état de l'entrée et détecte la présence 
JR C,ELEMNT d'un état { (élément). 

ESPACE: LD 4,0 À sert d'indicateur, On y met 0 si on a lu un 
JR TEST espace sur l'entrée et 

ELEMNT: LD A,i Î si c'était un élément. 

TEST: CPB Compare à l'élément précédent. Si différent, on 
JR NZ,NEULST préserve la nouvelle valeur. 


;— PAS DE CHANGEMENT, CONTINUONS 


E 


LD A, (DR) Ii n'y à pas eu de changement, on continue la 
CP OFFH boucle. Si le compteur d'échantillonnage est plein 
JR Z,SPACE on affichera un ESPACE. 
INCDUR: INC A Incrémente le compteur de mesure de temps 
LD (DR),4 et le sauvegarde puis 
JR MESURE saute à la mesure suivante. 


4 

37 ELEMENT RECU VIENT DE CHANGER 

5 ON LE SAUVEGARDE DANS ELEMENT 

3  PRECEDENT. 

NEWLST: LD (LSTSIG),A L'accu contient le dernier signal recu. 
AND OFFH 
JR Z,PTORTT Le dernier signal n’était pas un ESPACE. 


; 
37 DERNIER SIGNAL ETAIT 1 ESPACE 
3 ENTRE ELEMENTS OU CARACTERES 
; 
SPACE: LD À, (DURPNT) Le dernier signal était un ESPACE. On cheche à 
RLE À savoir si c'était un ESPACE inter-éléments où 
LD BA inter-caractères. Pour cela, on calcule durée du 


LD À, (DR) POINT#2 et on effectue la comparaison avec 
19 


PB. 

JR NC,AFFICH 

RLE D 

RLC E 
RAZDUR: LD A,0 

LD (DR),A 

JR INCDUR 


3 


le signal recu, 

Vers recherche dans la table puis affichage. 
Rotation des registres des POINTS et des TRAITS 
pour préparer la prochaine réception. 

Remet à zéro la variable contenant la durée du 
signal recu, 


3 ELEMENT RECU POINT OU TRAIT 7? 


PTORTT: LD A,( 
LD CA 
RLE À 
ADD A,C 
LD B,A 
LD A, (DP) 
RLE A 
LD {DP),A 
CPR 
JR NC, POINT 


DR) 


3 KL 


0 0 es 


LD A, (DR) 

LD BA 

LD A, (DP) 
CPB 

JR C,TRAIT 
LD A, (LSTELT) 
AND OFFH 

JR Z, POINT 


js un me 


RAIT:  LDA,! 
LD (LSTELT), A 
INC E 
ACTUAL: LD A, (DR) 
LD (DP),A 
JR RAZDUR 
POINT: LD A, (DR) 
LD (DURPNT),À 
LD A,0 
LD (LSTELT),À 
INC D 


JR ACTUAL 
80 


Pétermine si l'élément recu était un POINT où 
un TRAIT, Ün teste si sa durée est inférieure 
aux 2/3 de l'élément crécédent. 


Si oui, c'est un POINT, si non, c'est PEUT-ETRE 
un TRAIT, 


Compare la durée du signal recu avec 2 fois la 
durée du signal précédent. 


Plus grand, c’est un TRAIT, plus petit, un TRAIT, 
L'élément précédent était-ii un POINT ? 

Si oui, le dernier recu est 

aussi un POINT, 


Le tupe de signal précédent devient un TRAIT, 
Pour cela, on force À à ï. 

Incrémente le registre des TRAITS. 

Le signal recu devient... 

...le signal précédent, 


L'élément recu était un POINT, On se sert de sa 
durée pour réactualiser la valeur durée POINT, 
Le tupe de signal précédent devient un POINT. 
Pour cela, on force À à O, 

Et on incrémente le registre des POINTS, 


— SOUS-PROGRAMME AFFICHAGE -—— 
; 
; POUR AFFICHER ON CALCULE LE 

; RANG DANS LA TABLE DE TRANSCO 
Ë DU CARACTERE PAR Z4D+E 


AFFICH: LD A,D Le rang dans la table de transcodage s'obtient 
NOP 
RLC À par 2 fois le contenu du registre D (POINTS) 
ADC AE plus une fois le contenu de E (TRAITS), 
ADD À,0 Compare si la valeur ainsi obtenue ne dépasse 
CP 40H pas la valeur limite de la table de transcodage. 
JR C, POINTE 
LD 4,'# Affiche une # si le caractère est invalide. 
JR DSP 
POINTE: LD H,90H Poids fort de l'adresse début de table dans H, 
LD L,A Poids faible (rang du caractère) dans L, 
LD À, {HL) Pointe dans la table 
PUSH AF et préserve le caractère récupéré. 
LD À,4 Numéro de fenetre pour affichage du caractère 
CALL SETSTR {changement fenetre décodage ou vitesse) 
POP AF Récupère le code du caractère 
DSP: CALL OUTVDU et l'affiche... 
LD DE,D 
LD A, (DURPNT) Calcule le critère ESPACE comme étant égal à 
RLC À 3 fois la valeur de la durée du POINT, 
RLC À 
ADD A,A 
NOP 
NOP 
NOP 
LD B,A Préserve le résultat dans ER. 
LD A, (DR) 
CPR 
JR C,ICI2 
INTMOT: LD A,2CH Affiche un ESPACE si le dernier élément recu avait 
CALL GUTVDU une durée supérieure à 5 POINTS. 


ICI2: JR RAZDUR 


j 
; 
37 LECTURE DU CLAVIER -—- Différentes commandes pendant le décodage. 
; 
TSTKBD: CP °Q? Q pour quitter le décodage 

JR NZ, INCREM 

POP HL 


RET et revenir au BASIC. 
81 


82 


; 
INCREM: 


QUT: 


DECREM: 


NOMOD: 


en mn an 


DSPSPD: 


END 


CP *> 

JR NZ, DECREM 
LD HL, SPEED 
LD À, (HL) 

CP OH 

IR Z,NOMOD 
INC (HL) 
CALL DSPSPD 
RET 


cp ”<’ 

JR NZ,OUT 
LD HL, SPEED 
LD À, (HL) 
CP OH 

JR Z,NOMOD 
DEC (HL) 
CALL DSPSPD 
RET 


-—— AFFICHAGE VITESSE -—- 


CALL GETCUR 
PUSH HL 

LD A,3 

CALL SETSTR 
PUSH AF 

LD H,50 

LD L,4 

CALL SETCUR 
LD A, (SPEED) 
ADD A, 30H 
CALL OUTVDU 
POP 4F 

CALL SETSTR 
POP HL 

CALL SETCUR 
RET 


> pour incrémenter la vitesse de décodage. 
Lit la valeur de la vitesse actuelle 


et compare si égale à 9. Dans ce cas, on ne 
l'incrémentera pas... 


Affiche la vitesse dans la fenetre réservée, 


€ pour diminuer la vitesse de décodage. 
Récupère la vitesse actuelle. 


Si déja à Î on ne la modifiera pas. 


Décrémente la valeur de la vitesse de décotiage. 
Affiche dans la fenetre réservée. 

Dans une fenetre réservée, au bas de l'écran. 
Lit la position présente du curseur. 

La sauvegarde... 

Installe la fenetre numéro 3. 

Récupère numéro fenetre ou était le curseur, 
Force la nouvelle position du curseur sur la 


dernière ligne de la fenetre courante, 


Affiche la valeur de la vitesse, en calculant le 
code ASCII du caractère correspondant, 


Récupère le numéro de fenetre "texte". 


Replace le curseur dans la partie "texte". 








AMG Sie Maated 


10, Av. du Général de Gaulle 
BP 46 
35170 BRUZ 
























































MONIMORGE 


Le role de ce logiciel est de permettre l'apprentissage de la télégraphie 
MORGE, l'ordinateur étant un professeur infatigable et... imperturbable. 

Pour apprendre la télégraphie, il faut respecter certaines règles et ne 
pas tenter de bruler les étapes. 11 faut d’abord s'astreindre à apprendre les 
différents signes (lettres, chiffres, signes de ponctuation et signes 
spécifiques), à savoir les identifier sans erreur, puis acquérir de la vitesse, 

L'apprentissage de la manipulation ne se fera que quand les différents 
signes seront bien connus, Plusieurs ouvrages ont été publiés sur le sujet 
nous n'y reviendrons pas. 


Le logiciel proposé est capable de : 
- Générer des groupes de & signes pendant la phase d'apprentissage. 
- Composer des dictées à caractère aléatoire, 
- Simuler un mode trafic proche de la réalité, 


La génération de groupes de signes : 
Sept groupes de six caractères ont été définis, respectant un certain 
ordre généralement admis pour l'étude de la télégraphie MORGE (CH}, 
Ces 7 groupes pourront etre étudiés à a cadence propre à l'élève, 
Quand un groupe est bien acquis, on passe au suivant, Ce n'est que lorsque tous 
les groupes de signes seront parfaitement maitrisés que l'élève pourra se lancer 
dans les dictées. 


Fl y a quatre tupes de dictées : 

La première permettra de réviser toutes les lettres, Ia seconde les 
chiffres et la troisième, un mélange de chiffres, de lettres et de signes de 
ponctuation. La quatrième simule un mode proche du tafic perturbé habituellement 
rencontré sur les bandes amateurs. 

Ce dernier mode simule des baisses de niveau sur le signal (comme un 
réel fadding ou GSB) et des interférences avec une autre émission {brouillage ou 
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QRN), L'élève devra s’entrainer à décoder le signal le plus aigu. Notons au 
passage que, décoder l'autre signal aurait été plus difficile, tenant compte des 
caractéristiques de l'oreille. 


Le texte produit par l'ordinateur est, en meme temps, affiché sur 
l'écran, L’élève qui écoute ne doit, bien sur, pas regarder. Le texte intégral 
de la dictée pourra etre édité sur imprimante permettant ainsi un suivi des 
progrès de l’élève (en comparant le "corrigé" et le texte “décodé"}, La largeur 
de sortie sur l'imprimante a été fixée à 40 caractères pour tenir compte de 
certains matériels (exemple GP 50) disponibles sur le marché. Pour changer celà, 
il suffit de modifier le WIDTH 40 de la ligne 2610, 


Ecrit entièrement en BASIC, ceci étant rendu possible par les qualités de 
vitesse de l’'AMSTRAD, le programme appelle peu de commentaires. 

Les signes MORSE sont placés en DATA et rangés dans une table des codes 
COD$ ainsi queleurs codes ASCII dans la table COD. La dictée est composée 
aléatoirement, en tenant compte des critères choisis, et rangée dans deux 
tables, COD$ pour les formes MORGE, COD pour les formes ASCII. 

Si l'option "Trafic" est choisie, les brouillages sont produits ainsi : 

- Les variations de niveau (Fading) par variations lente de la sortie 
sonore, les différentes valeurs étant rangées dans une table QSR, A chaque 
signal sonore produit par l'AMSTRAD est associée une variation de volume 
prélevée dans cette table. Cette variation de volume agit sur la variable GRK 
modulant le niveau sonore, 

- L’'interférence avec une autre station est simulée par la production 
simultanée du texte de la dictée, lu à l’envers, sur un autre canal sonore et 
avec une tonalité différente, 


Toutes les adaptations restent possibles... 


1000 7 46-2636 pee 4e de Je Je DE DE DE DE DEEE UNE 
1010 ‘+ + 
1020 ?’+# MONTMORSE x: 
1030 ? +# # 
1040 ?+x FiEZH F&GKQ x: 
1050 ?+« # 
1060 + (C) EDEN Software 25 +% 
1070 + # 
1080 ? #46 MOURIR EHON DE 
1090 : 

1100 : 

1110 GOTO 13%0 

1120 REM Execution code MORSE 
1130 IF fad=0 THEN 1190 

1140 REM Produit le OS si selectionne 


1150 a=asbin)sIiF qe0 THEN qrkæegrk-1 ELSE 
qrhkeqrk+l 

1160 IF qrk£T7 THEN aqrk=7 

1170 IF aqrkt1iS THEN aqrkelis 

1180 REM Sortie sonore 

1170 IF carée" "THEN GSOUND 1,120, 7#pt,0 

LEO0 FOR kel TO LENCcar#)se#eMIDé(carsé.k 

1 

IF e$r"," THEN dept ELSE dett 

SOUND 1,ton,d,grks SOUND 1, 1%#0,pt,0 

LAS NEXT E 

1240 SOUND 1,120,€tEt,0:1F qrmeQ THEN RETU 

RN 

1250 REM Produit le ORM gi selectionne 

10 IF oqrméz" "THEN SOUND Z, ton, 7#pt,0 

1270 FOR ksl TO LENCoqrméise#eMIDS (armé, E 

y 1) 

1290 IF etz"." THEN dept ELGE dett 

1290 SOUND %, tons, dés SOUND #, tone, pt, 0 

1300 NEXT KE 

LAC SOUND €, tone, tt, O:RETURN 

LAZ0 DIM dic(#5), dicé(265),qeb(255) 

LABO arkellstoneli #0: tonte #00 

1340 REM remplissage tables des codes 

1380 DIM cod$é(é4ñ)s FOR neQ TO 45: READ c 

od#in)s NEXT 

1380 DIN codi45): FOR ne TO 9: RE&D cod 
CHI:NEXT 

LIST FOR ne10 TO 19s:cod (n)en+SB:NEXT 

1380 FOR neë0 TO 4Sscod (nien+4SsNEXT 

1390 BEM Presentation 

1400 MODE À: INK OL ls PAPER OsINK 1, 43: PEN 
LE RORDER Les WINDOW 41,8, 40, 7,172:INK 3,83: 

PAPER #H1,35s CLOHIsTNK “ Os PEN Hi, 

1410 PRINT #1: FRINT #1," MONTMORSE 
LAC PRINT #is PRINT #1," ioniteur de M 

QORGE" 

LABO PRINT His: PRINT #1," FIEZH ET FéG 

KO" 

L44C0 PRINT His PRINT HI, Ms CHRSCléäa)s" E 

DEN Software 1985" 

LAS PRINT #is PRINT #1, CPC 4é4 et à 

és LL 

LC LOCATE HO, 6,20: PRINT 'éqjuetez votre 
volume Sonore" 

1460 LOCÉTE HO, 7,21: PRINT let appuiuerz œu 

Fr une touche" 
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1480 aB=INREVS:IWMILE ae" ts age INKEYS: GOU 
ND 1,120,5,1%#:WEND 

L490 MODE LsINK 13: PAPER O:CLG:INK 1,0 
PEN JL:BORDER 13 

1300 CLS: PRINT: PRINT:INPUT Entrez la da 
te JJ/NM/86 "idats 

1310 CLS: PRINT: PRINT: PRINT "il Pour appr 
entissage des signes" 

LISE PRINT "£- Pour dictees d'entraineme 
nt" 

1540 arme0sfade0s PRINT:PRINT 

1540 INPUT "Votre choix Mrcx 

13350 IF cx £1 OR cKrX THEN 1540 

1560 ON cx GOTO 1570, %#140 

1570 REM éporentissage des signes" 

1580 qrkelzstteñ(ipte10 

1590 CLS: PRINT: PRINT "épprentissage par 
blocs de 6 ne en MR nn D Ce me 


1600 PRINT: PRINT "1l—  ETÉéNRK CES 
OVFHOP" 

1810 PRINT "2  MDXTGC a  JLO 
123" 

LéxC PRINT "G-  ZUESVY Ge 456 

7939" 

1630 PRINT Pr ny Path 

1é40 PRINT GB  Vé AG" 

LS PRINT :PRINT 

Lééli 8 INPUT * Votre choix Micks TI 

FO OcnxEl OR cr +9 THEN 16460 

1670 ON cx GOTO 1690,1700,1710,17#0., 17230 
:1740,1750,1760 

LB REM âiqguillage types de groupes 
1690 lec$="ETANRK":GOTO 1770 

17007 lec#$="MDXIGC":GOTO 1770 

1710 lec$é="ZURSNY':GOTO 1770 

1720 lec$s="OVFHOP"':GOTO 1770 

1730 lecé="JLOÏES":GOTO 1770 

1740 lec$é="456789":GOT0 1770 

1750 lecée", CS 1770 

1780 lecés" É E 

1770 CLS:IF cx 278 THEN 1900 

1780 PRINT:PRINT "Vous allez apprendre V 

À {#) et 4S (<)" 

1790 PRINT:PRINT 'Ecoutez-les.,.." 

1800 PRINT:PRINT "V8 represente par +" 





1810 FOR ne 1 T0 ércaréecod#(g):GOSUR 11 
SCsFOR qi TO 1OCO:NEXTENEXT 

LRQ PRINT: PRINT 85 represente par <" 
1830 FOR ne 1 TO éscaré=cod#{9}s:GOSUR 11 
DO:FOR gel TO 1OOCU:NEXT:NEXT 


1840 PRINT:PRINT l'épprenez a 18s reconna 


itre oem ue PIS RAT 
1850 leche"<irense ÉrRe res 
1880 FOR nel TO E@: c&= MIDS(18C8, 1, 1) 
1870 IF cée"eit THEN care", ," ELSE ca 
LÉ EEE 

1880 GOSUR LIPOsPRINT cHss:NEXT 

1890 PRINT:PRINT:PRINT PÉPEUUSE sur uns 
touche pour continuer" 

1900 CLS:PRINT: PRINT Nous allons appren 
dre le groupe Pis PRINT lec# 

1910 PRINT:IPRINT Ecoutez chaque signe d 
LM groupe ":FPRINT 
1920 FOR ne 1 TÜ & 
190 FOR je TO 45 
HEN 1940 ELSE cæeis 
LAC NEXT 

LOSC caréecods CCisFOR mel TO és GOSUR 116% 
Q:FOR gel TO LOCC:INEXTs PRINT céssNEXTepPR 
INT:ENEXT 

1980 PRINT: PRINT "épprenez a les reconna 
itre melanges" 

190 PRINT: PRINT "Patientez quelques ins 
tante S.V.P," 

1990 RENM Genere une dictee gur le groupe 
1990 ze 

OO FOR nel TO XE:FOR ii TO é 

2010 1=INT(RNDO1)ké+1):cé=MIDS(lecé, 1,1) 
SOEO FOR je TO 4h IF AGSCich)<ecod(;j) TH 
EN 2030 ELSE ceijsir4s 

#00 NEXT 

2040 dictriecsdicé(rieCHR#&(cod(c)i 

EOSO0 z=z+liNEXT 

H0O80 dicirieQidicé(rir" 

2070 gez+isNEXT 

2080 CLS: PRINT: PBRINT lÉDOUUSZ gur une to 
uche pour commencer !s PRINT: BRINT 

2060 SOUND 1,120,100 

2100 AaSrINKETSIIF afett THEN #10 

110 RE Dictee du groups 





sCÉeMIDS(lecé,n,i) 
3 IF AGSC(cH)ércod(i} T 
ei 
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2120 FOR ne0 TO 180Qs:x=dicin):caré$éecod#(x 
DIGOSUR LISO: PRINT dic#(n)::NEXT 

2130 cxe=0:GOTO 2570 

140 CLS: PRINT "SELECTION VITESSE" 

2150 PRINT Mes eee È 

160 PRINT:PRINT:PRINT "1- LENTE®:PRINT 
Ne MOYENNE": PRINT "3- RAPIDE" :PRINT 
2170 INPUT "Votre choix "svit 

2180 IF vit £1 OR vit 3 THEN #170 

2190 qrksilstons120: ton?=700 

HEO0Q ttsék(é-viti 

ptett/35 

PRINT: PRINT: PRINT "TYPE DE LA DICTE 


P R I N Lu LASER EEE RENTE ATEN SRE EEE EME | | 
PRINT'i- Dictee Chiffres seuls" 
PRINT'E- Dictee Lettres seules” 
PRINT'3- Dictee complete" 
PRINT'4- Dictee avec QRM et GSE" 
PRINT: PRINT 
INPUT "Votre choix "scx 
IF cKél OR cxïr4 THEN 290 
ON ox GOTO EUEO, 2340, SS90, ESE0 
REM Fonction Chiffres seuls 
DEF FNgenreINTCRNDO1)#10)+10:G0T0 





pus 





REM Fonction Lettres seules 
2330 DEF FNgenreINTCRNDITLD KES) +20: GOTO 


2360 REM Genere tahle de QSE 

2370 FOR ne0 TO ESS :qsbin)eINTERNDOIIXZ) 
sNEXT 

2300 fadelsqrmeil 

23O0 BEM Fonction Dictee complete 

S4ÛQ DEF FNgenre TNT CRND OA 5 4éé 45 

“410 REM Fonction Hasard espaces 

S4rQ DEF FNespazINT(RNDELT #85 + 

L4SQ REM Prepare la dictee 

440 FOR neQ T0 ESS ske Ngenri:dic(niekesdi 
CHCn)eCHRS (codé) seNEXT 

2450 REM Met des espaces dans dictes 
é4ëé0 ne0 

2470 x=FNespasnentsk 

MAG IF néESS THEN Z490 ELSE dicin)=Qisdi 
céinie" iGOTOG 470 

Sa CLS: PRINT " Dictee de tupe "icx 
s" le "sdat$s PRINT 





2500 PRINT "APPUYEZ SUR UNE TOUCHE POUR 

COMMENCER..." 

2510 IF QRME=O THEN ZS20 ELSE PRINT:PRINT 
"DECODEZ LE SIGNAL LE PLUS AIGU DES DEU 

X"2 PRINT 

2920 PRINT:PRINT "ESC Interrompt la dict 

ee, SPACE continue" 

ÉD30 ASSINKEVÉS:IF AS="U"THEN E530 

2540 PRINT:PRINT: PRINT 

#350Q FOR ne0 TO Z255:xedic(n)egyedic(£2535-"n 
)icar$=ecodé(h)soqrm#scodé# (ui): GOSUE 1130 

2560 PRINT DICS CN) 3:3:NEXT 

2570 PRINT:PRINT "éppuuyer sur ?C7 pour » 

éecopie imprimante" 

250 af=INKEVS:IF a$z"" THEN #500 

2390 IF a$ £% MC" AND a$ 25 "c" THEN 151 

[a 

“600 REM Module de recopie imprimante 

#610 WIDTH 40 

HOEQ CLS: PRINT:PRINT "Vérifier connexion 
imprimante " 

HOAO absINKEYS#S:IF age" THEN Z630 

240 IF cKH£sO THEN Z660 

2650 PRINT #8,'"DICTEE ENTRÉINEMENT SUR L 

ES SIGNES "s:PRINT #9, lec#:GÜTO Z470 
“o80 PRINT #8, M"DICTEE DE TYPE "3 Cx 

2670 PRINT #9 

2680 PRINT #8, '"EFFECTUEE LE "sDATS 

2690 PRINT HS: PRINT HG: PRINT #8 

TOO FOR NeQ TO 255: PRINT #S,DIC#CNjs:N 

EXT 

2710 PRINT #H6:PRINT #6 

2720 GOT 1510 


2730 REM Signes de ponctuation (C# a 9) 
ETAQ DÂTS sonate pan To gun Te nn mn Tue Ts 
Dre ke CC EC 


750 REM Chiffres (10 à 19) 
5760 DATA EE 


nn num CCE nn CE 


2770 REM Lettres (20 à 45) 
2780 DATA ee nn em ge geo pu que 


sg eT # a CE CEE 4 … 4 “4 = 4 


0] aus CCE ES 4 “ # 4 = 4 CRE] 


2790 DAT 44,47,83,61,46444, ex, eù 


g1 
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EMISSION ET RECEPTION SSTV 


Le logiciel que nous proposons ici permet le décodage des émissions 
effectuées en SSTV (Glou Scan Television, où encore Télévision à Balayage Lent}. 
Le lecteur intéressé se reportera à l'annexe de ce livre pour un complément 
d'informations sur ce procédé de transmission. 


Il nous est apparu intéressant d'adjoindre à la partie réception, un 
sous-programme permettant la transmission d'images créées à partir de 
l'ordinateur. Le logiciel est donc très complet comme le lecteur pourra le 
constater à la lecture de ce qui suit. 


La réception permettra de mémoriser et de sauvegarder les images recues 
sur cassette ou disquette, L'émission est complétée d’un éditeur permettant de 
créer des images où encore, de rappeler des images mémorisées antérieurement. 


LA RECEPTION 


Pour décoder un tel signal, il existe plusieurs solutions: la plus 
simple, mais aussi la moins performante, consiste à confier à l'ordinateur le 
travail d’échantillonnage du signal précédant la détermination des niveaux de 
gris. Le problème est que, le temps passé à échantillonner est perdu... 
Résultat, une définition moins bonne de l’image. 

De plus, pour faire entrer le signal BF dans l'ordinateur, il faut une 
entrée ‘analogique’, ce que ne possède pas le CPC 4464. Notons que, sur un 664 où 
6128, il aurait été possible d'utiliser l'entrée ‘cassette’, 


La solution que nous avons retenue passe par la réalisation d’une carte 
interface décrite plus loin dans ce livre. Précisons que cette carte pourra 
aussi servir au ATTY et à la CN... L'utilisateur pourra également l'emplouer à 
d'autres taches. 
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En réception, le calage du récepteur est très important. Le logiciel 
vous aidera à régler votre poste sur la bonne fréquence grace À un indicateur 
visuel. Ce ‘curseur’, situé au bas de l’écran indique à tout instant le type de 
signal recu (blanc, gris clair, gris moyen, noir ou synchro). Pour que le 
décodage soit correct, il faut obtenir, en ajustant finement la fréquence de 
réception, un clignotement permanent du curseur sous la lettre ‘5° symbolisant 
la synchro. Si ce clignotement se fait plus à gauche, retouchez légèrement le 
réglage du récepteur, Celà demande, au début, un peu d'oreille et de doigté. 


Le décodage se fait sur 4 niveaux, dont le blanc et le noir et ce, avec 
une définition d'environ 128 x 128. Tout dépend en fait du soin apporté à la 
réalisation et au réglage de l'interface. 


L'arret de la réception se fait en appuyant sur la touche *SHIFT', par 
retour au menu. ATTENTION ! cet arret ne sera possible que si l'interface est 
connectée et si un signal est présent à l'entrée (signal SSTV, GRM etc.) pour 
débloquer le système. 


L'EMISSION 


Elle s'effectue directement à partir de L'AMSTRAD, sans l'aide 
d'interface. On y accède par l'appui sur la touche ?E’. La génération des 
tonalités est accomplie par l'ordinateur, le signal sortant sur la prise jack 
stéréo’ est envoyé vers l'émetteur, Si votre émetteur demande un signal 
important sur son entrée ‘Micro’, il sera peut-etre nécessaire d'intercaler un 
préamplificateur entre lui et 1’AMGTRAD. 


Les images transmises auront été, au préalable, créées par l'éditeur, 
Vous pourrez vous en confectionner une collection que vous sauvegarderez sur 
cassette ou disquette. 

Les images sont chargées et sauvegardées par groupe de 4. Pendant la 
transmission, il est possible de changer d'imaoe en appuyant sur ‘CTRL', Le 
trafic reste donc confortable... 

Pour quitter l'émission il suffit, comme pour la réception, d'appuyer 
sur la touche *SHIFT’, 


Qutre ces deux options émission-réception, le menu vous propose: 


EFFACEMENT 


L'action sur la touche ‘V' efface l'image qui est présente à l'écran, 


MEMGRISATION ET SAUVEGARDE 


Les images, recues où créées, peuvent etre mémorisées. uatre zones 
mémoire sont disponibles à cet effet. L'appui sur *P° permet la mémorisation. 

Lorsque 4 images ont été mémorisées (ou avant, mais là, 11 y à perte de 
place) il est possible de les sauvegarder sur cassette ou disquette en 
actionnant la touche ?5?. 


MIRES 


3 mires sont prévues dans le programme: mire de barres, mire de 
carreaux et mire combinant les deux. On y accède rapidement grace à la touche 
1m? 


EDITION 


+ 


La touche *T’ donne accès à un éditeur plein écran permettant de créer 
des images ou d'ajouter des informations sur des images existantes. Un curseur 
apparait en haut et à gauche de l'écran, 11 peut etre déplacé grace aux touches 
curseur sans détériorer l’image. Seuls les caractères graphiques et 
aiphanumériques peuvent etre utilisés par appui sur les touches correspondantes. 

Précisons que, à l'émission, il est préférable de créer de gros 
caractères grace aux symboles graphiques afin que le correspondant puisse Îles 
lire quelles que soient ses conditions de trafic. 

Le retour au menu se fait par appui sur la touche ?COPY’, 


SAUVEGARDE 


Commandée par l'appui sur la touche ?S', la sauvegarde permet de 
préserver sur disque ou cassette (prévoir un support différent de celui qui 
contient le programme} la mémoire d'images (4 images) pour une lecture future. 


CHARGEMENT 


La touche ?C? permet de charger en mémoire un bloc d'images 
suavegardées auparavant sur cassette ou disquette. À l'issue du chargement, les 
4 images défilent à l’écran, renseignant rapidement du bon fonctionnement de 
l'opération. 


95 


AFFICHAGE 


Cette option permet d'appeler à l'écran l'image voulue parmi les 4 en 
mémoire. Elle est commandée par la touche ?A’. 


Pour terminer cette description, signalons qu’un curseur à gauche de 
l'écran renseigne l'opérateur, pendant l'émission, sur la ligne SSTV émise à 
tout instant. 


CHARGEMENT DU PROGRAMME 


Pour préserver un maximum de mémoire, la saisie de ce progranme sera un 
peu plus fastidieuse que pour les autres. 


Voici comment vous devrez procéder: 


{- Taper le programme BASIC principal. 

3- Gans l'exécuter, le sauvegarder sur cassette où disquette sous le 
nom ?5STV?, 

J- Faire NEW et taper ensuite le programme ‘Chargeur langage machine’, 

4- Faire RUN et entrer successivement les codes des tables 1,2,3,4,5 et 
quand une table est entrée, taper sur la touche arobas (@) pour passer à la 
suivante, Une erreur peut etre corrigée durant chaque entrée de ligne en 
appuyant sur la touche ‘DEL’ et en la retapant entièrement. 

IL VA SANS DIRE QUE L'ENSEMBLE DU FONCTICNNEMENT DU PROGRAMME SSTV 
DEPEND DU SOIN APPORTE À LA GAISIE DE CES CODES. 

3 Quand l'ordinateur affiche, à la fin du travail précédent, 
SAUVEGARDE”, mettre le magnétophone en enregistrement (si vous avez un 464) et 
appuyer sur une touche pour sauvegarder le langage machine à la suite du 
programme BASIC principal. 


Recharger ensuite l'ensemble en faisant RUN ©SSTV et vérifier le 
fonctionnment du programme, ATTENTION ! Ne pas passer en ‘Réception’ si 
l'interface n'est pas reliée, pour éviter le blocage du programme. 


Un large espace mémoire allant de 88300 à &9D00 a été laissé libre pour 
permettre d'inclure une routine de recopie d'écran sur imprimante, Devant le 
nombre important de différents types d'imprimantes, nous n'avons pas jugé bon de 
décrire, dans ce livre, une telle routine. Nous laissons au lecteur le soin d'en 
choisir une adaptée à son matériel, 
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QUELQUES COMMENTAIRES SUR LA PARTIE BASIC 


Lignes {0 à 30 
Lignes 60 + 
100-290 
130-330 
240-250 
260-390 
300-320 
330-460 
460-700 
710-740 
750-810 
20-850 


PROGRAMME GETV 


0RG 7EC4H 

LOAD 7ED4H 
MEMO1:EQU 7E00H 
MEMOZ:EQU 7E02H 
LD IX,9E0CH 

LD E,B0H 

LD DE, (MEMOL) 
LBH:LD L, (IX40) 
LD H,(IX#1) 
PUSH DE 

LD DE, {OH 

ADD HL,DE 

POP DE 

LD C,30H 
LR2:LD A, HD) 
LD (DE),A 

INC HL 

INC DE 

DEC € 

JR NZ, LEZ 

INC IX 

INC IX 

DUNZ LEI 

RET 


Initialisations 
Dessin du cercle 
Affichage du menu 
Sélection de l'option 
Emission 

Chargement des images 
Sauvegarde des images 
Génération des mires 
Edition d'écrans 
Mémorisation d'images 
Affichage des images 
Réception 


CE LISTING NE DGIT FAS ÊTRE SAISI 


âdresse debut table d'adresses écran 
Nb de lignes = 126 
âdresse de rangement en mémoire 


HL adresse de début de ligne d'écran 


HL adresse début ligne écran utile 
€ nombre d'octets utiles 


Transfert 


Boucie 
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LD IX, 9E0CH 
LD B,80H 

LD DE, (MEMO2) 
LB3:LD L, (IX+0) 
LD H,(IX#1) 
PUSH DE 

LD DE, 10H 

ADD HL,DE 

POP DE 

LD C, 30H 
LB4:LD A, (DE) 
LD CHL),À 

INC HL 

INC DE 

DEC € 

JR NZ,LB4 

INC IX 

INC IX 

DINZ LES 

RET 


0RG 80004 
LOAD 8000H 

LD HL,OFFCOH 
LD (OAOOOH),HL 
DI 


L8001:LD HL,9E00H 


LD B,80H 
L8006:DI 

LD E, HL) 

INC HL 

LD D, (HL) 

PUSH HL 

LD HL,0010H 
ADD HL,DE 

LD C,48 
L8011:LD DE, 0488H 
LD A,0 

LD (9DEFH), À 
LADI9:PUSH EC 
LD BC, OFBFFH 
IN A, (C) 

POP BC 

AND OFH 

PUSH HL 

LD HL, (0AOOOH) 
PUSH AF 


Transfert mémoire écran 


Adresse de lecture mémoire 


Boucle 

RECEPTION 

âdresse début affichage curseur de calage 
Mémorisation 


Adresse début table des adresses écran 
B = nombre de lignes (128) 


DE Adresse de début ligne écran 


HL Adresse début écran utile 
© nombre d'octets utiles 
D nombre de bits / octets & € masque de lecture 


Met la mémoire temporaire à zér0 


Lecture port FFF (interface SSTV) 
Conserve les 4 bits utiles 


Récupére la position actuelle du curseur 
de calage 


XOR A 

LD (HL),A Efface 

POP AF 

PUSH AF 

LD HL,DFFCOH 

ADD A,L 

LD L,A Affiche le curseur à sa nouvelle position 
LD (OAGOOH),HL Mémorise cette position 

LD (HL},0FFH 

POP AF 

POP HE 

CP. Teste si c'est synchro 

JR 2,L804C 

PUSH DE 

LD DE, 9DFOH Va chercher la configuration couleur qui 
ADD AE correspond au signal recu (recherche dans table) 
LD E,A 

LD A, (DE) 

POP DE 

AND E Masque avec la position du bit 

PUSH DE 

LD D,A 

LD A, (9DEFH) 

OR D 

LD (ODEFH),À Mémorise dans l’octet temporaire 

POP DE 

RRC E Prépare le masque pour bit suivant 
CALL L6074 Temporisation 

DEC D 

JR NZ,LE019 Boucle tant que les 4 bits image n’ont pas été lus 
LD A, (9DEFH) 

LD (HL),A âffiche l'octet compiet (4 bits image) 
CALL L8074 Temporisation 

INC HL Gctet ligne suivant 

DEC € 

JR NZ,L8Üi{ Boucle si ce n’est pas le dernier 
L804C:CALL L8085 Attente de synchro 

LD A4,H 

CPB Test synchro image 

JR C,LBD4F 

POP HL 

JR L80D1 Image suivante 

L604F:POP HL Ligne suivante 

INC HL 

PUSH BC 

CALL KEY Lecture clavier 


POP BC 
CP 22 

JR Z,LB07F 
DJNZ L8006 
CALL L809C 

IR LE0DI 
L8074:PUSH BC 
LD BC, 0D10H 
L8078:DEC BC 
LD A,B 

ôR € 

JR NZ, LB078 
POP EC 

RET 

LRO7F :NOP 

RET NZ 

POP HL 

EI 

RET 
L085:PUSH BC 
CALL KEY 

CP 223 

JR Z,LR07A 

LD BC, OFBFFH 
LD HL,0 
LROGE: IN A, (C) 
AND 1 

JR Z,LBOBE 
LBO94:IN À, (C) 
INC HL 

AND ! 

JR NZ, L8094 
LBO9A:POP BC 
RET 
L809C:PUSH BC 
L809D:LD RC,OFBFFH 
PUSH BC 

CALL KEY 

POP RC 

CP 223 

IR Z,LEOBC 

IN À, (C) 

AND { 

IR Z,L809D 

LD RC,OBFFH 
LADAE:DEC 3C 


Arret si appui sur SHIFT 
Sinon boucle... 
Attente synchro image 


Temporisation entre bits image 


Arret du programme réception 


Attente synchro et mesure la durée 


HE contient la durée de la synchro 


Attente sunchro image 


Test clavier 


LD A,B 
ôR € 

JR NZ,LBOAE 
LD BC, OFBFFH 
IN A, (C) 

AND 1 

JR Z,L809D 
LROBC:POP RC 
RET 


ORG 8100H 

LOAD 8i50H 

D 

LD C,D 

LE 4,0 

CALL GOUND Met à O le registre 0 du AŸ-3-8912 
LD C,0 

LD A,i Met à 0 le registre ! 
CALL SOUND 

LD C,15 

LD 4,8 Met le volume à 15 

CALL SOUND 

LD C,62 

LD 4,7 Het en route le canal À 
CALL SOUND 

TRAME:LD C,52 Synchro image 

LD A,0 Génère le 1200 Hz 

CALL SOUND 

DI 

LD EC, OFODH 

Ti:DEC BC Pendant 30 ms 

LD AC 

GR B 

JR NZ,TI 

LD HL, SEODH HL adresse de ia table des adresses écran 
LD B,8ŒH B nombre de lignes (128) 
LIGNE:LD E, CHL) 

INC H 

LD D,(HL) 

LD 4,433H 

LD (DE),A Affichage du curseur 

PUSH DE 

PUSH HL 

LD HL,0010H 

ADD HL,DE HL adresse début de ligne utile 
LD C,48 C nombre d'octets utiles 
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LD B,26H 

T2:DJNZ T2 

POP BC 

RET 

SYNC: PUSH RC Synchro ligne 

LD 4,0 

LD C,52 

CALL SOUND Génère le 12300 Hz 

DI 

CALL KEY Lit le clavier 

CP 223 

JR Z,5T0P Arret si appui sur SHIFT 
CP 127 

JR NZ, SUITE 

LD 4,(7E03H) Si appui sur CTRL, affichage de 
CP 66H l'image suivante 

JR Z,IMAGO 

ADD A, 18H 

IMAGi:LD (7E03H),A 

PUSH HL 

PUSH DE 

PUSH BC 

CALL 7E34H Transfert mémoire-écran 
POP EC 

POP DE 

POP HL 

JR SUITE 

IMAGO:LD A, 1EH Gi c'est la 5ème, affichage de la fère 
JR IMAGI 

SUITE: DI 

LD RC,O2FFH Temporisation finale de la synchro ligne (5 ms) 
T:DEC RC 

LD A,C 

ÛR B 

JR NZ,T3 

POP 2C 

RET 

SOUND:LD 8,0F4H Routine d'écriture dans les registres 
OUT (C),A du générateur sonore 

LD 3,0F6H 

IN A, (C) 

OR OCDH 

OUT (C),A 

AND 3FH 

OUT (C),A 

LD B,0F4H 
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OCTET:LD DE,C488H D nombre de bits utiles & E masque de lecture 
PIXEL:LD À, (HL) 

AND E Lit le bit image 

PUSH HL 

LD HL, 9DCOOH HL adresse début table des fréquences 
LD L,A 

LD 4,(HL) 

POP HL 

CALL GEN Génère la fréquence qui correspond à la couleur 
CALL TEMPO 

RRÇ E Prépare le masque pour le bit suivant 
DEC D 

UR NZ, COMPL Boucle tant que l’octet n'a pas été complètement lu 
INC HL Octet suivant 

DEC C 

JR NZ,OCTET Boucle si ce n’est pas le dernier 
CALL SYNC Synchro ligne 

POP HL 

INC HL 

POP DE Récupère la position du curseur 

XOR A 

LD (DE),A Efface le curseur 

DJNZ LIGNE Boucle si ce n’est pas la dernière ligne 
JR TRAME Image suivante 

STOP:POP HL ârret du programme 

POP HL 

POP HL 

POP HL 

LD C,B Coupe le son 

LD 4,0 

CALL SOUND 

EI 

RET 

COMPL:NOP Complément d'instructions 

XOR À servant de 

JR NZ, COMPL temporisation 

JR PIXEL 

GEN:PUSH RC 

LD C,A 

LD 4,0 

CALL SOUND Génère la tonalité 

DI 

POP EC 

RET 

TEMPG:PUEH EC Temporisation entre bits 


OUT (0), € 
LD P,OFéH 
LD £,A 

OR 80H 
OUT (C),À 
OUT (0),C 
RET 
KEV:LD BC, OF4DEH 
OUT 1), C 
LD B,O0FéH 
IN A, (0) 
AND 30H 
LD C,A 

OR OCOH 
OUT (Ci,4 
OUT (C),C 
INC B 

LD A,92H 
OUT (C),À 
PUSH BC 
LD €,042H 
LD B,0F6H 
OUT (CI, C 
LD B,0F4H 
IN A, (€) 
POP BC 
PUSH AF 
LD A,82H 
OUT LC), À 
DEC B 

QUT €), € 
POP AF 
RET 

END 


Routine de lecture du clavier 


10 ? E/R SSTV par FCIEZH & F&éGKRAQ 

#0 ON BREAK GOSUE 500 

30 MODE 1:MEMORY &IiDFF:PEN 

40 INK OSO:INK 1,1Z5 INK ZIP: INK 3,26 

30 LO4D'ISSTVE, bin’ 

60 ORIGIN 124, 399: DRAUR 0,-258,3:DRAUR 3 

G0,0,3:DR8WR 0,258,3 

70 GRIGIN G,Ù 

SÛ ON BREAK GOSUE S00 

90 WINDOWKHO, 1, 40,18,25: WINDOW#I,1,4,1,1 

GB: WINDOWHE, 9, 32,1, lés CLOHE 

100 CLS: PRINT CHR$&CZE) ss CHRS (CO) 3e PRINT" 
E-EMISSTON" 3: PRINT" R-RECEPTION’":BRINT" 

SAUVEGARDE" 8 PRINT" C-CHARGEMENT 3 PRINT 
M OT-EDITION": PRINT" M-MIRE" 

LIO PRINT" P-MEMORISATION" 2: PRINT" &-4FFTI 
CHAGE "3 

120 LOCATE #7, 13 PRINT'V-EFFACEMENT 

130 KB=INKREVS:IF Kég="® THEN 130 

140 IF UPPERS(KSI&"E" THEN 40 

150 IF UPPERS(K#)I="R" THEN 850 

LôC IF UPPERS(K#I="C" THEN 2460 

170 IF UJPPERS(K#)="M" THEN 360 

180 IF UPPRERS(K#HO&æ"T THEN 510 

190 IF UPPERS(K#I="R" THEN 74{i 

O0 IF UPPERS(K#S)I=" 8" THEN 760 

#10 IF UPPERS(K#S)= UV" THEN CLSHE 

ec IF UPPERSIKS)="S" THEN GE0 

e3Q GOTS 150 

SAC CLS: PRINT F$s PRINT:PRINT" 

EMISSTON": PRINT SPRINT" Pressez * SHIFT? 

pour arreter": PRINT! 'Pressez *CTRL? pour 
l'image guivante"sCâll &8100sCiLS 

#30 LOCATEHI, LS ILFOR Neî TO Lés PRINTHI," 
PeNEXTsGOTO 100 

Sér CLS: PRINT'CHARGEMENT DE 4 IMAGES" 

#70 PRINT: INPUT Nom du fichier a charge 

w (SO Car. Maxi) Fafis 

290 fiéefigé4t, bin" 

90 LOËD Fi$iFOR NeQ TG 3 

300 POKRE &7E0S, &IE+818#N:CALL &7ETÉ 

SIC FOR Tai TO IOC:NEXT T,N:GOTO 100 

EQ CLS: PRINT'SAUVEGSARDE DE 4 IMAGES" 

330 PRINT:INPUT "Nom du fichier & sauver 

(8 car. max) "afig 
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340 SAVE F1i$,F,&1E00,&6000 

350 GOTO 100 

360 CLS:PRINT:PRINT" B-MIRE DE BARRES":P 
RINT" C-MIRE DE CARREAUX'" 3: PRINT" D-CâRRE 
AUX+BARRES" 

370 K&S=UPPERSCINKEYS#)S:IF Ké&="" THEN 370 
380 IF K#&="B" THEN GOSUR 420:G07T0 100 
390 IF K$="C® THEN 450 

400 IF K#&="D'THEN GOSUR 420: C=0:GOTOQ 460 
410 GOTO 370 


420 CLOHSIFOR Lei TO 16:FOR C0 TG G:FOR 
Gi TO G:PENKE, Ce PRINTHE, CHR$ (14079) 3 :NE 


XT G,C 

430 NEXT L 

440 RETURN 

450 PAPERKEZ, Os: PENKE, 3: CLOHE: Ce 

460 FOR xe=128 TO 508 STEP 4S8:ORIGIN x,39 
G:DRAWR 0,-254, Ce ORIGIN «42,399: DRAWR 0, 
254, CeNEXT 

470 FOR y=399 TO 145 STEP -YX:0RIGIN 128 
3UIDRAUR 38E,0, Cr ORIGIN 128,y-#:DRÉUWR 36 
“0, CsNEXT 

490 C=ë 

490 GOTO 100 

300 MODE 1:STO0P 

S10 CLS: PRINT'COPY pour arreter" 

AE0O Mel: FOR N=80 TO 66 STEP -1: PRINT CHR 
C4) a "CTRL'aCHRE C4) à CHRE CN) ss CHRS CN 
+63)3" "isMed+i 

30 IF Meé THEN Mais PRINT 

340 NEXT N 

990 De&C0iCs:Seg7FFOsPENKE, 3: ReQ 

360 X=l:vei 

nVQ PeD+(CX-1)#2+CV-1)#850 

300 FOR Cei TO S:FOR Lei TO G:POKE S,PEE 
K(P3 3: PeP+880C:SEeS+lsNEXT LePeP-&gFFF:NEX 
FE 

390 HETEST (120+X4+16,400-V+16) 

600 LOCATEHE, X, Ye PENHE, 3-Has PRINT HE, CHRÉ 
(ZE) 3 CHRS (10 3 CHR CE10) à CHRÉ CEE) 3 CHR CC) 3 


bi0 KE=INKREVS 

SO IF K$='" THEN 610 

637 KE=AGSCCKE) 

é40 PENKHE, 3 

850 IF KES THEN KeK+127 


&S6Q IF KE:31 AND KE&EO THEN LOCATE#HE, X,Y: 
PRINTHE, CHR&(K) 3 2:Ge8&7FFO0:GOTO 570 

670 IF Ke&EC THEN Ra 

690 Seg/FFQs PeD+(X-1)K2+(Y-1)#850 

690 FOR Ci TO Z:FOR Lei TO S:POKE P,PEE 
KG): P=P+RBO0:SES4+ÏiEsNEXT LiPEePp-&gOSFFFsNEX 
TC 

700 IF Rei THEN 100 

710 XE=X-1k(KE=8&FT AND K£Z4)+1#(KE=8FZ AND 
X#1) 

FED VeV-le(kRe&gF1i SAND Y£16)+1kCK=&FO AND 
Y1) 

F3 Se&7FFOs:sGOTO 570 

740 CLS: PRINT sPRINT'NUMERO D'ORDRE DE L'? 
IMÔGE 7C1 a 4)"3 

750 INPUT NsIF Nré4 OR N£l THEN 740 

F0 PÔÜKE &7ECOI,&IE+&188CN-1):CALL &7E04 

770 GOTO 100 

F80 CLSsN=1is PRINT'ESPACE POUR IMAGE SUIV 
ANTE":PRINT'ENTER POUR ARRETER" 

F90 LOCATE 1,4:PRINT'IMAGE No'"sN 

800 POKE &7EON, &iE+818#(N-13):CALL &7EZS 
910 TESINKEY#:IF Tée"" THEN 810 

8:00 s ASCTI=13 THEN 100 

30 NEN+IIIF NES THEN Ne 

840 in 790 

650 CLS: CLSHEs PRINT: PRINT" R 

ECEPTION" 

60 PRINT:PRINT'APPUVEZ SUR *SHIFT' POUR 
SRRETER" 

70 LOCATE 33, 7:PRINT'R NS! 

890 CALL 8000: GOTO 100 


10 DATA 41,51,37, 39,34, 38,44, 34 
15 CLS 

0 FOR nei TO 4 

30 READ a,b 

AO crea 

50 SOUND 1,c,15,15 

&0 LOCATE 1,1 

70 PRINT BINSCINPE&FRFF)) 3: PRINT: PRINT:PR 
INT'P'an 

O0 IF ca THEN ceb ELSE cra 

GO IF INKEYS#<EUU THEN 110 

100 GOTO 50 

110 NEXT n 
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IQ REM&R RE CHÉROGEUR LANG. MÉCHINERSEE 


0 MEMORY 






&Û LL &D00: Cat 20 
F0 L=8 SDF 0: GOSUE 
BQ CLS: PRINT GAUVEGÉR 
LIVE Z SUR UBE TOUCHE" 
GQ IF INKEYé="N THEM 7 

LOC SAVEPNGETUE, BINME, &YECIO, a CIC 

LiQ END 

LE CLS 

LES J=l. 

130 PRINT HEX#(LIa" se CHBS(E) 

140 FOR Tei TO 8 

150 Nelségenn 

160 KÉé2eINKREVS:IF Kéztt THEN 16[i 

LYC K&UPPERE CES) 

180 IF BECK SIE7 THEN PRINT CHBR£(I1T):P 
RINT CHR#(l11)ss:leT:GUTO 130 

190 IF Kéc<'Q" GR K&r"E" THEN 140 

ÆOQ IF K&S"OM AND Ké&<'a" THEN 160 

10 IF KÉé="Q"THEN BETURA 

ED PRINT Fit," CHRGCE 5 

LIO AR E+HRE 

AC MENT SIF NESS THEN 14( 

En Q 4eVAL CES) es PORE LL, ÀsleælLa+ 

H6éCr PRINT Ms CHRSCO)sENEXT 

270 PRINT" "eGOTO 125 





Es PRINT: PRINTNARE 








TABLE 1 


TABLE 2 
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TABLE 3 


TABLE 4 


TABLE 5 
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SL 


















EN 
QUE 
4 
EE 
LATE 
CAE 
EU 
(rat 


LF 
EE TA 
LE 
GA 
AG 
BEA 
[PAT 
GE 
[EST 
GA 
EE 
GE 
[RE 
Fra Tr 
[TE 
BU 
BG 
LATE 


LE 
QUE 
HA 
Gt 
LE 
TA 
EH 
Lite) 
IÉHE 
Quai 
lea 
BE 
EU 
Eu 
EH 
PU 
RUA 
QUE 


EE 
TE" 
EH 
NE 


eq 


Al 
EH? 
qua 
Ces Er 
[LA 
Qu 
QUA 
EH 
LA 
EU 
LS LE 
Eu 
EU 
La 
EHA 
GA 
FA 
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LF 
GE 
DATE 
EE 
Te 
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LE 
EE 
EN 
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[PA Er 
La tr 
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Dear 
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EE 
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EUR 
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ÊE 
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EMISSION RECEPTION RTTY 


Le logiciel d'émission-réception RTTY proposé ici vous demandera 
quelques heures de saisie, mais vous disposerez par la suite de la possibilité 
de trafiquer en radio-télétupe. 


Le programme est long et fait appel à un savant mélange de BASIC et de 
langage machine. Lors de son élaboration, nous avons découvert une des limites 
du RAGIC de L'AMGTRAD: sa lenteur d'affichage. 


La composition de la mémoire écran de notre machine est très 
particulière, nous l'avons déjà écrit, et sa gestion ralentit considérablement 
l'affichage. Nous aurions souhaité proposer un logiciel bénéficiant des 
possibilités de fenetrage de l'AMSTRAD, ce qui aurait permis de disposer d’une 
sorte de ‘tableau de bord’ indiquant divers états tels que vitesse, shift, 
position mémoire texte etc. Nous avons du renoncer au multi-fenetrage pour 
pouvoir décoder jusqu'à 110 bauds sans problème, Il est Bien entendu que, si 
nous avions utilisé en interface un UART, L'AMSTRAD aurait été employé comme un 
vulgaire terminal et le problème résolu ! Nous avons préféré proposer au lecteur 
un interfacage simple. 


PRINCIPALES CARACTERISTIQUES DU PROGRAMME 


11 permet de décoder aux vitesses standard de 45.45, 50, 75 et 110 ds, 
les messages émis en code Paudot. Le décodage s'effectue via un démodulateur 
classique en RTTY, la sortie de ce dernier étant reliée à l'entrée imprimante de 
L'AMSTRAD. Ce choix, criticable nous le savons, a pour but d'éviter la 
réalisation d'une interface d'entrée, 11 est bien entendu que, si le lecteur 
possède une telle interface, il aura tout intéret à l'utiliser, les 
modifications à effectuer sur le logiciel étant minimes. La carte GSSTV décrite 
dans ce livre, pourra aussi etre utilisée, le démodulateur RTTY ÿ sera couplé 
avec avantage. Dans l'hypothèse contraire, la sortie du démodulateur sera reliée 


aux points 11 (point ‘chaud’, ligne *AUSŸ’}) et 14 pour la masse. 
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La réception est complétée d'une mémorisation des caractères recus (les 
4095 derniers). Cette mémoire peut etre relue dans son entier, ou par ‘pages’ de 
512 caractères. Ii est prévu également de pouvoir lister ces pages sur 
imprimante. Les forcages en mode *CHIFFRE’ où ’LETTRE’ permettent de limiter les 
effets de brouillages intempestifs. L'écran peut etre effacé, Le passage en 
émission se fera avec les paramètres vitesse et shift déjà choisis, ou encore en 
modifiant ces paramètres. 


Toujours à cause de la lenteur d'affichage, il n'est pas possible, dans 
cette version du programme, de préparer le texte qui sera émis tout en recevant, 


L'émission permet le fonctionnement aux vitesses standards énoncées 
ci-dessus, le shift étant choisi par l'utilisateur, C'est le générateur sonore 
de l’AMSTRAD qui produit les tonalités MARK et SPACE, ce qui fera peut-etre 
frémir les puristes mais réjouira tous les autres: pas besoin d'interface AFEK, 


Plusieurs messages mémorisés sont prévus. L'utilisateur les définira à 
sa guise. [1 pourront etre interrompus en cours d'émission. Ces messages peuvent 
etre mélangés sans problème avec les textes tapés au clavier, Ceci facilite 
grandement le trafic, en permettant l'insertion des ‘procédures standards’, Il u 
a ainsi jusqu'à 10 messages mémorisés pouvant atteindre chacun 240 caractères, 


Les messages mémorisés se chargent à partir d'un fichier ‘à part’, lu 
sur la cassette ou la disquette. Ils peuvent etre modifiés où complétés. Il faut 
alors sauvegarder la nouvelle version si on désire la conserver. 


A l'émission, la sortie BF de l'AMGTRAD (jack stéréo) sera connectée à 
l'entrée ’Micro’ du transceiver. Dans certains cas, il sera peut-etre nécessaire 
d'intercaler un petit préamplificateur: tout dépend de la sensibilité du 
modulateur de l'émetteur. La commutation émission devra etre assurée 
manuellement... Le relai de commutation des CPC 664 et 6126 (sortant sur la 
prise magnétophone) auraient pu etre utilisés mais la compatibilité avec le 464 
n'était plus assurée. 


La mémoire de texte atteint 4095 caractères, Il faut l'imaginer comme 
un ‘rouleau’. Lorsque la dernière position mémoire disponible à été remplie, le 
prochain caractère recu sera stocké au début de la mémoire, écrasant petit à 
petit les caractères recus antérieurement. Quand un texte important a été recu, 
et que l'utilisateur désire le conserver, il est possible d'effectuer une 
sauvegarde de toute la mémoire texte sur disque (ou cassette), L'ordinateur 
demande alors sous quel nom doit se faire la sauvegarde. Il sera possible de 
récupérer ensuite ce fichier. On le désignera alors par le nom sous lequel il 
avait été sauvegardé. Les noms seront donnés sur 1 à 8 caractères, l'extension 
,BIN' étant attribuée automatiquement par le logiciel, pour les possesseurs de 
disques, 
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L'édition de la mémoire peut se faire ‘en continu’, de la première 
adresse jusqu'à la dernière, ‘partiellement’ c'est-à-dire jusqu'au dernier 
caractère recu, où encore en mode ‘pages’, listant 512 caractères, Les 
emplacements vides de la mémoire sont remplis par des points. 


La position du dernier caractère recu est indiquée. Bien sur, on peut 
avoir déjà ‘fait un tour’, c'est-à-dire que la mémoire a été écrite au moins une 
fois. Le fait d'indiquer à l'utilisateur la position du dernier caractère mis en 
mémoire lui permettra de savoir quelles pages il doit lister. Prenons un 
exemeple. Le pointeur indique 84. L'habitude, durée du décodage déjà effectué, 
ou l'examen de la mémoire en mode ‘continu’, montrent que celle-ci se remplit 
pour la énième fois. On listera donc la page O et on saura que, pour trouver la 
partie précédente du texte, il faudra lister les pages 7, 6, etc. Pas facile à 
expliquer mais vite compris lors de l’utilisation. 


La sortie d'un texte sur l'imprimante a été prévue, Bien entendu, celà 
suppose que l'imprimante soit connectée et en service. C'est là tout l'intéret 
de posséder une carte d'entrée, pour libérer le connecteur imprimante de 
L'AMGTRAD, sinon il faudra brancher et débrancher’. Celà peut se faire sans 
risque, car la sortie imprimante de l'AMSTRAD est 'bufferisée’, mais il faut 
quand meme faire extrement attention à bien présenter et positionner Île 
connecteur, Une solution de fortune consiste à monter un inverseur à 2 positions 
sur le fil *EUSY' du cable imprimante, le commun vers l’entrée de l'AMSTRAD, un 
point vers la sortie du démodulateur RTTY, l'autre point vers l'imprimante, On 
basculera ainsi du décodage vers l'impression. L'édition du texte sur imprimante 
se fait par ‘pages’ de 512 caractères, Le numéro de la page (0 à 7) est indiqué 
sur le papier, 


LES DIFFERENTES CGMHANDES 


RECEPTION: 
C force le mode CHIFFRES. 
L force le mode LETTRES. 
N permet d'afficher le contenu de la mémoire. 
E passage en émission. 
T retour au menu pour modifier les paramètres sélectionnés, 
6 efface le contenu de l'écran. 


EMISSION: 
Les commandes passent par l'apoui simuitané our ?CTRLT. 
CTRL R passage en réception. 
CTRL G modification des paramètres choisis. 
CTRL À à J choix de l'un des 10 messages mémorisés. 
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MEMOIRE : 


Un menu particulier est présenté à l'écran pour: 
Sauvegarde de la zone mémoire. 

Chargement de la zone mémoire. 

Consultation complète ou partielle. 

Possibilité d'édition sur papier. 


QUELQUES COMMENTAIRES SUR LE PROGRAMME 


Les Listings de la partie ‘assembleur’ sont commentés pour permettre au 
lecteur de procéder à d'éventuelles modifications. Le PASIC est composé de 
plusieurs parties dont nous donnons le role ci-après, 


110 


120 
170 
230 
250 


510 
595 


6it 
630 
760 
770 


800 


1050 
1770 
1790 
1840 
1940 


2010 
2100 


2530 


Si le programme a déjà été exécuté une fois, on ne perd pas 
de temps à recharger les messages mémorisés et le langage 
machine. 

Entrée du fichier messages mémorisés. 

Implantation du langage machine à partir des DATAS 

Initialise la mémoire texte réception. 

Affiche les différents messages mémorisés et propose leur 
éventuelle modification. 

Implante en mémoire, à leur emplacement définitif, les 
différents messages mémorisés. 

Pret à commencer. Choix des paramètres vitesse, shift, et 
nombre de colonnes avant émission auto d'un CR/LF. 

Aiguillage émission, réception, affichage contenu mémoire. 
Emission. 

Réception. 

Détermine le motif du retour au BASIC: pour lire mémoire, 
pour modifier les paramètres où pour passer en émission ? 
Modification des paramètres et transmission aux routines en 
langage machine de ces paramètres. 

DATAS contenant le langage machine. 

Sauvegarde des messages mémorisés. 

Traitements de la mémoire texte recu. 

Menu et aiguillage. 

Sauvegarde du contenu de la mémoire texte vers le disque où 
la cassette. 

Chargement de la mémoire à partir d’un texte déjà sauvegardé. 
Edition de la mémoire, Calcul de la position du dernier 
caractère recu et mémorisation. Menu édition. Dans le mode 
édition par ‘pages’, il est possible de sortir les textes eur 
l'imprimante. La variable *PRT' renseigne de ce choix. 
Effacement complet de la mémoire texte. 

Sous-aiguillage ‘menu mémoire’ où ‘menu nrincipal’. 


10 7 xxsksenrx E/R RTTY HERERERE 


MC 54% # 
30 ? # (ci E,.DUTERTRE FCIEZH + 
40 7 #  & D. BONOMO F &SGKOQ  # 
DU. ?- 4% CPC 4éé4 664 L1ER # 
80 ? # V.OZ 7/11/1985 + 
70 ? + # 
0 7 HR SR SEEN DE ROME HR RIRE 
90 ? 


100 MEMORY &7FF0:CLS 

110 IF PEEK(&9E60)=8276 THEN 590:7 IL À D 

EJA TOURNE... 

120 MODE 1:PRINT"CHARGEMENT DE LA MEMOIR 

E *MESSAGES’" 

130 OPENIN'MESSAGE" 

140 FOR N=1 TO 10:INPUTH#SG,ME#(N)D:NEXT 
150 CLOSEIN 

160 CLS 

170 PRINT:PRINT:PRINT'PATIENTEZ QUELQUES 
INSTANTS " 

180 RESTORE 1060 

190 FOR N=&A100 TO &AZSO:READ A$:A=VAL(" 

&"+AS) 

“00 POKE N,A:NEXT:RESTORE 1460 

210 FOR N=89E00 TO &9FOF:READ A$%:46=VAL(" 

&"+AE ) 

220 POKE N,A:NEXT 

230 * MISE À ZERO DE LA MEMOIRE TEXTE 

240 POKE &9E06,0:POKE &9E07,&880:FOR N=8t 

O00 TO 8&BFFF:POKE N, 46:NEXT: PRINT CHR#&(7 
) 

250 * MESSAGES MEMORISES 

260 MODE Z:PRINT CHR#(24):5"LES MESSAGES 

MEMORISES SONT :" : CHR$ (4) 

270 PRINT:FOR Neil TO 10:PRINT CHR&(Z4)3" 

MESSAGE " ; CHR Ch4+N) 3 CHRS (24) 5": ME& CN) 
:FOR M=i TO 1000:NEXT M,N 

380 PRINT:PRINT"VOULEZ-VOUS Y FAIRE DES 

MODIFICATIONS (O/N) 7" 

290 R$S=INKEYS: RÉ=UPPERS (R#): IF Ré="" OR 
(R$<+"O" AND R$<:"N") THEN 290 

300 IF R#$="N" AND T:>0 THEN 430 

310 IF R$="N" AND T=0O THEN 490 

320 INPUT"'LETTRE DU MESSAGE 4 MODIFIER ( 

GS POUR ARRETER)", NUS 

330 NU=ASC(UPPERS (NUS) )-64 
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340 IF NU=19 THEN 430 

50 IF NUE GR NUSI0Q THEN 370 

360 CLS:PRINT'ENTREZ LE MESSSGE DE 240 € 

HRACTERES MAXIMUM CENVIRON 3 LIGNES)" 

370 PRINT" Le caractere $% symbo 
lise le CR/LF" 

380 INPUT MES (NU) 

300 MES CNUDE&=UPPRERS (MES (NU) ) 

400 MES ÉNUSEMES CNUD+CHRS CE55 ) 

410 TeT+i 

40 GOTO 60 

430 CLS: PRINT CHRECE4) 3 "ATTENTION" : CHRS#( 

43" Si vous voulez conserver ces mess 

ges, vous devez les resauvegarder gur di 

sque" 

#40 PRINT: PRINT'SSUVEGSRDE (OG/N) 7" 

450 RÉE=INREVS: RÉSUPPRERSE(RHDIIF Réett OR 
CRBSEETO" AND R#£<SUN") THEN 450 

460 IF RS="OUTHEN GOSUR 17460 

470 PRINT: PRINT: PRINT: PRINT'APPUYEZ SUR 

UNE TOUCHE, sus us" 

480 IF INKEY#=2="" THEN 480 

490 CLS: PRINT'PATIENTEZ.,,,," 

300 FOR Iei TO 10 

310 A=&9O00+T4S6 

He0 Jei:Cég="" 

HAQ WHILE CHE: CHRSCES5) 

40 CÉEMIDES MES CT ),J, 1) 

330 IF CHEMAN THEN CHeCHRS (13) 

H6Q POKRE (Câ+J-1),4SC(C#) 

370 Jef+1 

380 WEND:NEXT 

90 MODE Z: PRINT CHRSCZ4) 3 "OPTIONS"; CHRS# 
(4): GOSUR 820 

600 CLSHOsPRINT'PARSMETRES 3: shift'sgs" 
RÉ"scols"col. —- vitesse "sv$és" bds" 

é10 PRINT:PRINT "EE pour Emettre'":PRINT * 

R pour Recevoir "':PFRINT "M pour Modifier 
parametres" 

G£0 RÉSUPPRERSCINRENV#I):IF KRSCEVE" AND K#< 

HR AND K££EPM" THEN 870 

630 IF K&="R" THEN 760 

40 IF KE=UM" THEN GOSUR GOC: MODE Xe: GOTE 
é0iOs? MODIF. OPTIONS 

650 MODE ZsNWINDONW #1, 1,80,19,25 :WINDOW#O 
y de O0 L, 18 


660 PEN#HI, 1 

670 CLS HO:LOCATE#HI,1,1:FOR Neil TO SO:PR 
INT#1, CHRÉ(IS4)::NEXT 

680 PRINT#I:CHECHRSE CFA + CTRL'ACHRS CEA) 
70 PRINT#1,CH#3:" R-RECEPTION":PRINTHI,CS 
5" O-CHANGEMENT OPTIONS':PRINTHI, Ci" À 
a J-MESGAGES MEMORISES ? 

700 LOCATEH1L, 40,3: PRINT#HI, CHRSCZ4) 3 "OPTI 

ONS "3 CHR CZ4 ) 

710 LOCATEXHI, 40,4: PRINTHI, "VITESSE s"svVa" 
BDS" 

720 LOCATE#HI,40,5S:PRINT#HI,"SHIFT st gs" 
HZ" 

730 CâLL &AÏiCO 

74Q CHEPEER(&AOFÉ)2:IF CH=&F THEN GOSUE & 
OC:MODE £Z:GO0TO 600 

750 IF CH=l3 THEN 1760 

760 MODE Zs:CALL &9E460 

770 IF PEEK(&GEOC)=Z THEN 1810:° OPTION 
MEMOIRE 

780 IF PEEK(C&9EO0)=0 THEN 650: * EMISSITO 

N 

790 IF PEERK(&9PE0O0)=1 THEN GOSUR 800: MODE 
Z2:GO0TO 600: MODIF, OPTIONS 

600 MODE %Z3:CLS £ 
610 PRINT CHR#(Z4 53" CHANGEMEN 
T OPTIONS Ms CHRS(EZ4) 

820 PRINT :PRINT:PRINT 

830 INPUT'ShHiIFtT(+/—-,, , Hzi"aT 

640 IF S=0 AND IQ THEN 800 

850 ÎF I<:0 THEN SI 

660 PRINT:PRINT 

870 PRINT'shift"'sgs "HE": PRINT 

6680 INPUT'NE de colonnes pour le RC auto 
matique (1 a SO)"sTI 

690 IF I=0 AND COL=0Q THEN 860 ELSE IF I 
+0 THEN COLT 

900 IF COL:60 THEN 880 ELSE PRINT:PRINT 
910 PRINT "RC':COLs "colonnes": PRINT 

920 PRINT'Vitesses: 1- 45 Pds"s:PRINT" 


&— 50 Bds'":PRINT" G— 75 
Pds°":PRINT" 4-—110 Bde'":PRINT:PR 


INT'votre choix 1,2,3 ou 4 svp "ss: INPUT 
V 

930 TRMISSOEOS: TRLISSROEOZ: TRMZS&OEOS : TRL 
2=8&9E04 
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G40 TEMI= 
seb ser 
GSQ IF Vré 
G&éQ GN NV 
970 Ve sVSe" 4": PORE 
À PORE 
B&Bs PORE TEL 1, é&éés FPOKRE 
a SE: GOTO 1010 

O0 VaSs(sVéaæ" sos PO 
SOS PORE TRME, &ôs POR 
Rés PORE TEL 1, &40s POKE 
&40sG0UTO LOC 


BASS 3: TELIiS&é 





THEN GE0 









TRLS 


GO Vel Ve tt FOKE 
és PORE 


TRE, &és FOKE 
TEL 1, &DésPORE 
1010 

LOC Ve i0eVéa"tiQ"s PORE 
1,&175POKE T ces és PORE 
Las POKRE TELI,&EC:POKE TE 
4 4 3 GO TO 1010 

LOC FPORE &ACGED, COL 

100 IF S:0 THEN POK 
FA)IPORE &ACFEFS I 
1040 

LOSC PORE 
BAOFF, INT Cé 2500. # 127 ee 
1040 RETURN 


1050 RER 
1080 DATé 
1070 DST 
1080 DéTé 
1060 DATA 
1100 DAT 











BE “"àF is 
Er, FC AE QC, QC 
QC, OO, 00,3E,08, 
SA,FE, AO, 4F, SE, 
QUE, QC, CD, 34, 
LA10 DATA CD, S4, ED GAFT, 
110 DATA BB,FE, éi es “05, D 
11540 D8Té Di,4i FE on, c 
1140 DATS SA,BR,FS, CD, 
1150 DATA FR FE, 41,30, 
1160 DATA ZO,IF,GE, 
1170 DATÉ 
1180 DATS OC,SGE, 
1190 DATé 81, 18,00, Fi 
LEOC DAT 00,4F,09,5E, CD, 
LEO DATA ŒD, EX, FC, A0, #0 
LEO DST BE, FU SA FF, AC, 


CD 4 ti SJ É , 







È Fe 


00,3%,FE, 






és TEPMIEE 


GOTO 970, 7e0, Fo, 
TRM1, 
TRME,&B:POKE TRLE 
TEMX, 


LE TRMI, 





TETE, &F as POKRE 


TRLE, RE 


a 


Dé 


mn, A a Eu 


PR er État a Le 


STE 


1 car 

: POKE 
ï & - és PÛKRE 
&I10:PFOKE 


TRLA1, & 
TEMI, 
TELE 


5: PORE 


TRLI,& 
&4 0: POKE 


TEMI, 





TRMI,SG:POKE TEHL1, 
TRLE 
TEME, &é s PORE 


,&D4:POKE TEMI 


TELZ, & 


TRL 
E TE 
TELE 


TRI, 





MZ, &é 








RCRXAEMISS TON A4 


Fo 5 BC a FL CI 


, 00, 00, QC, QG, O0 
OE,08, CD, 34, BD 
00, CD, 34,BD,3E 
BD,3E,07,0E,3E 
Dé 


AG, A7 sos CD, 





\1E,1B,CD 
a, FR AD, A7, 28 

en | 
20,21,56, 


ds 















1310 
130 
LE 
1340 
a 
360 
"C1 
1380 
1390 
1400 
1410 
Lé4r0 
1430 
1440 
1450 
1460 
L4 #0 
1480 
149% 0 
1300 
1510 
1520 
1530 
1540 
15 HE 7 
re 
1570 
1580 
1590 
1800 
1610 
lé 
1630 
1é40 
1650 
1éét 
1670 
18480 


DATA BD,CD,33,42,16,05,CB,1B, 
à DATA 3A,FF, A0,4F,3E, 00, CD, 34,BD, CD 


DATA 33,42,15,20,ED,34,FE, AG 


DATA 00,CD,34,BD, CD, ZA, AZ, FR, C 
DATA OD,78,2D,FE,12,28,1E,FE, 
DATA 1A,FE,O1,DA,35,A1,FE, OR, 
1 DATA 41,57,3E,01,32,F9, 40, CD, 


38,71 


.4F, SE 
F,FE 


sas 


DATA ÀF,UX, F9, AÛ, C3, 35, 41, 32,FA, A0 


DATA 3E,07,0E,3F, CD, 34, BD, C9 


F5 CD 


DATA 8D,BB,F1,CD,54, mere 


DAT EE, CD, Es ER. F4 4 F 1 A0, 3 LA 
DATA 1E,UB. CD, à ue 


DATA C3,35,41,34,FE, 40,18, 8D, 
DATA QF,0PB,78,B1,20,FE,C9,01, 
DATA OP,78,B1,20,FE,C9,71,00, 
ES, CD, 
E,FF, C8 
DATA 18,EC,04,00,05,00,00,14, 
DATA 0F,12,09,11,0C,03,1C,iD, 
DATA 13,01,04,10,15,07,06,18, 
DATA O0,1E.00,19,00,0%,19,0E, 
DATA OD,1A4,14,06,0P,0F,1%,1C, 





DATA 84,67,7E,FE, FF 


DATA CD, 1B.BB.,Ei.D9,23,7D,F 


DATA 16,17,04,05,10,07,1E,13 
DATA 11 
REM KR RECEPTION x 


DATA O0, G0,00,00,00,00,00,00, 
DATA O0, 00, 00,00, 00,00, 00,00, 


DATA O0, 00, 00, 00,00, 00,00, 00 


DAT Q0,00,20,54,08,4F, 20,48, 
DT QD, 4C,57,47,49,50,43,56, 
DATÉ, 44,42,53,59,46,59,41,57, 


DATA 55,51,48P, FE; Q0,435,04, es 
DATA EC,SE, QD, 29,34,25 3,38, 
DATA G3,XR, DAT, 27, 36 4 ie 


DATA 07,FF,37,31,29,FE, 276,00, 
DATA PBB,DC,BA,OE, CD,F4,9E, 30, 
DATA 1B,BB,DC,BA,GE, CD,F4,9E, 


DATA 16,05,ED,4B, 0Z,9E, OP,78, 
DATA FB,SE.00,ED,4B.04,6E,0B, 
DATA 20,FB,CD,F4,9E, CB, 15,15 
DATA 11,20,9E,7D,84,E5,6F, 24 
DATA 7E,E1,FE,FF,20,04,26, 20 
DATA FE,FE,20,04,26,00, 18, BO, 
DATA BP, CD,FC,9E,18,A8,FE, 6! 





DATA 4C,70,03,76,00,C9,FE,53 


:, FC. AO 
Al,Al 
Q1,40 
401, DA 
90,74 
30,41 


QC, 05 
16,17 
GE, O0) 
oo, 
oc, 18 
,1D,15 


QC, OÙ 
O0, QQ 
O0, OÙ 
4E , 4D 
45 4 DA 
48, FF 
EÛ, 4€ 
és aD 
20,2% 
CD, 1P 
Fa, CD 
x8,F5 
Bi, 
78,R1 
20 EF 
(0,19 
118, BE 
CD, 54 


1,38,0% 
DATA D6,20,FE,4%,20,0%,26, 20, C9 


.F E 
120, Oé 


121 


122 


1690 DATA SE, OC, CD, SA, BE, COLFE, 4D, 20, 05 
1700 DéT& SE,COZ, CSEF, PELFE 45,70, O5, FE 
1710 DATS OO,CS,EF,SGE,FE, .54,C0,3E, O1, E 
1720 DTA OQ0,SE,EI, COOL AZ, FS ED, TEL 
1730 DATA 17,00, ES: PA OS. OE. 77 eu 7 C,FE 
1740 DATA 90,20,03,241i,00,80,2%%,06,9E,E1 
1730 DATS C6, O0, O0, O0, O0, 00, G0, Q0Q, QC, QC 
1760 REM 

1770 OPENOUT'MESGAGE":FOR Nel TO 10: WRIT 
EG, MES CN 2NEXT : CLOSEOUT 

17801 RETURN 

1790 *MANIPULATIONS MEMNOTRE 

1800 * 

1810 FOR nel T0 Fe PRINT sNEXT:WINDON #1, 
1: 80,19, 25: WINDOW #0, 1,80,1,18 

180 ? 

1830 CLS HI 

1940 LOCATE HI, ACL: PRINT #1i,'"Options me 
moire" 

1850 LOCATE #1, 30,2: PRINT HT, Meme ae ae ne 








1880 LOCATE #1,10,3: PRINT #1," 1- Sauve 


garder ls memoire ë— Charger La m 


emoivre" 

1870 LOCATE #1,10,42PRINT #1," 53- Lire 
Imprimer la memoire 4 Effacer la mé 

moire" 

1880 LOCATE #1, 40, F2 PRINT #1, "Votre choi 

4 +qu 

1800 LH=PPIUMHILE tée"tts CES INKENYS : WEND 
19O0 IF ASCITHILAT OR ASCCESILSE THEN 18 

ei Ü 

LOIC LOCATE Hi,4é4, 7e PRINT HI,LTtE 

1820 LEVALEOTÉ) LION € GOTO 1830, 2010, 2100, 

510 

1930 SAUVEGARDE DE Lé MEMOIRE 

1940 © 

1950 CLS HIsLOCATE HI, GO de PRINT #i, "San 

vegarde de la memoire 

1980 PRINT CHRSCFHELOCATE #1, 20,3: 

1,'"Titre de la sauvegarde (8 Car. max, 

| Maté 

LGFQ IF LENCES)I:S THEN 1860 

1980 LOCATE HI,2C, Se PRINT #1, "PBreparer 

a disquette et presser une Loneher 


1990 WHILE INKEYSæ" "se UEND:EPOKE &7FFE, PEF 

RBPECS) : POKE &YFFF, PEER(SSEUTI EI GAVE t#, 

b,&TFFE, &1001 

#O000 GOSUE LélO:OGN € GOTO Z600, 1830 

EOIO * CHARGEMENT DE Lé MEMOTRE 

OO ? 

ÆOXQ CLS HI:LOCATE #1, 30 Le PRINT #1,"Cha 

vaement de la memoire" 

2040 PRINT CHR#(TI):LOCATE #1,20,3s: INPUT 
Hi,"Titre du fichier a charger (€ car. 

MAX ) Maté 

2050 IF LEN(CET#H):6 THEN #04 

060 LOCATE H#1,20,5: PRINT #1, "PFreparer 1 

a disquette et presser une touche" 

070 WHILE INKEV#&=" "2: WEND: téeté+", bin": 

ODAD € 

2080 POKE &9ECé, PEEK(R&RYFFE) : PORKE &SE07, P 

EEK C&7FFEF 0 

2090 GOSUR ZélOs:ON € GOTO Zé00, 18730 

#100 LECTURE DE LS MEMOIRE 

110 * 

#10 debmem=e327488 : finmemePEER (&SECé ) +256 

KPEEK (C&9E07 

A0 devrcarefinmem-debmem 

140 CLS HIsLOCATE #1, 30, 1:PRINT #1,"Lec 
ture de la memaire’ 

21930 LOCATE #1,20, Ze PRINT #Hl,'"Le dernier 
caractere est en"s:dercari:"eme position” 


2160 PRINT #1,"1- Pour lister jusqu'au d 
ernier caractere 

170 PRINT Hi, Four lister toute la m 
emcire" 

4180 PRINT #1,°"3- Pour lister par pages 
de 512 caracteres" 

190 * 


CHRUMeUMILE té" te te INKEYS : WEND 
LeVALCES)ILIF LET OR LE THEN #00 
IF tel THEN dercarz3#768+dercar 
IF te THEN dercar=366é3 

IF CES THEN EES0 ELSE 2330 
AFFICHE LE CONTENU MEMOIRE 


L 





: LOCATE #1,20, 6: PRINT #1, "éppuyer æœu 
r une touche pour quitter l'option" 
EG careCsFOR nedebmem T9 dercar 
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124 





se90 LOCATE #1,38,7:PRINT #1, car:scarrçcar 
His: PRINT HO, CHR#&(PEEK (nm): 

2300 IF INKEYS#2F""TMHEN neder car 

2310 NEXT:PRINT HOQ:IF prt THEN PRINT #5 

2320 GOSUB Z610:0N t GOTO Z600,1830 

2330 *ôFFICHE LES n DERNIERS CARACTERES 

“340 ? 

350 PRINT CHR#C7):CLS HIisLOCATE K1,25,1 
PRINT #1, "4FFICHAGE MEMOIRE P&R PAGES" 


360 LOCATE #1,10,3: INPUT #1,'"Choisissez 
la page memoire a afficher (0 à 7)"3pm 

2370 IF pm £0 GR pm:7 THEN 2356 

2380 LOCATE #1,10,5:PRINT #1, "Voulez-vou 

& une copie sur imprimante (O/N5 7° 

2300 FOR «ei TO US: PRINT Mes sNEXTe PRINT 
". Page "spmssFOR xe=1l TO SS:PRINT Mets 

NEXT 

AOÛ CHEN ENMILE Eat ts te TNKEVS : WEND s t# 

ÆUPPRERSECLHILIF ESC" THEN prte0 ELSE p 

vtzl 

410 liminfedebmemt+pmeæs is limeupelimintf+ 


Sas0 IF prte0 THEN #430 ELSE PRINT #8,'"F 
age "spmsPRINT #9 

430 FOR n=liminf TO limgup 

Lé40 CÉESINKREYSIIF tés THEN nelimeug 


HS 0 PRINT #0, CHR&CPEEK (nm) )ssIF prt THEN 
PRINT #8, CHR$S(PEERK (ND): 
480 NEXT:PRINT HO2IF prt THEN PRINT #a 


470 PRINT CHRSCTIE CLS HisLOCATE Hi, 10% 
SPRINT #1, "Donner le no de la prochaine 

page (0 a 7) où 0 pour quitter” 

40 LÉSRMMENAILE tete CheTNRENVS: WEND Is tS 

ÆUPPERS(CETS): IF té="o@" THEN 2500 

e4GQ pmeVAL CE) :GOTO 3570 

2500 GOSUR ZEGIiO:ON € GOTO 2600, 1830 

#910 EFFACEMNENT DE L8& MEMGIRE 

CLS HIsLOCATE H1,30, 1: PRINT #Hi,'EFF 

ACEMENT MEMOIRE" 

ES4Q0 LOCATE H1,5 ,3:PRINT #1, "ATTENTION, 
cette option detruit le contenu de la m 

emoireg reception, ,.." 


330 LOCATE #1,26,5: INPUT #1i,'"Confirmez 

votre choix (O/N) "st$s tCé=UPPERS(t#) 

2560 IF té<r"o" THEN 1830 

2370 FRINT CHR#C7I:LOCATE #1,26,5:PRINT 

Hl,'"Effacement en cours. Patientez 1" 

200 FOR ne&8000 TO &BFFF:POKE n,46:NEXT 
sdercar=sO:PÔOKE &SEQ0é,O:POKE &9E07, &80 

290 GOSUR ZGIO:ON t GOTO Z600,1930 

SO MODE Z:GOTO 600 

eb10 CLS HIsLOCATE K#1,17,4: PRINT #1,"i-— 

Retour menu principal ä- Retour menu 
memoire" 

LÉO ESS INMNILE the": Le INKEYS : WEND 

630 IF ASCCtTH)Er49 AND ASCCEH)L:60 THEN 
SO ELGSE teVAL(t#) 

640 RETURN 


ADDITIF AU PROGRAMME RTTY 


Il est possible d'ajouter facilement au programme RTTY un 
sous-programme, permettant l'émission automatique de l'indicatif de la station, 
en télégraphie, à chaque fin de transmission. Rappelons que Îe passage de 
l'indicatif en graphie, à périodes régulières, est obligatoire... 


La modification est minime: il suffit d'ajouter au programme BASIC les 
quelques lignes qui suivent, l'exemple étant donné avec FéGKG : 


AJOUTER UNE LIGNE : 745 GOSUR 3000 


000 INDICATIF EN GRAPHIE 

AOIT cobalt, ie Ce ie re 
SCO tonr1li0stte1iSsptes 

3030 FOR nel TO LEN(cc#) 

rar EeMIDEé(ccs,n, 1) 

IF car$et THEN SOUND 1, ton, Sæ&pt, Os GOTO 080 
IF car£e", THEN dent ELSE dæett 

OUND 1,ton,d, 10:SOUND ji, ton,pt,t 

X T3 RETURN 
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Page ? 


DUE TO THE SIMPLE FACT THAT OUR 
COUNTRIES ARE NEIGHBOURS. 

THE SOVIET LEADER"S REMARKS WERE POSITIVELY ASSESSED IN 
TOKYO. THE JAPANESE FOREIGN MINISTRY, THE NEWSPAPER YOMIURI 
REPORTED, +WELCOMED THEM IN PRINCIPLE+. PRIME MINISTER YASUHIRO 
NAKASONE, AT À PRESS CONFERENCE IN THE NATIONAL PRESS CLUB, ON 
PROSPECTS OF SOVIET-JAPANESE RELATIONS IN THE LIGHT OF THE 
SOVIET-AMERICAN SUMMIT IN GENEVA, FOR HIS PART, VOICED THE 
OPINION THAT +THERE NOW EMERGED A CHANCE OF SETTLING 
JAPANESE-SOVIET R 


EXEMPLE DE RECEPTION ET IMPRESSION D'UNE PAGE’ MEMGIRE 











126 


RTTY PARTIE EMISSION 
ORG CA1ODH 
LOAD DA10CH 
CALL OBBBAH Affiche le curseur 
XOR A 
LD (OADF9H), A 
LD A, (OAGFDH) 
LD (DADFCH), À 
NOP sn avait prévu des modifs ! 
NOP 
NOP 
NOP 
NOP 


LD C,8 Fixe le volume BF à moitié 

CALL OBD34H 

LD A, (OAOFEH) 

LD C,A 

LD A,0 

CALL OBD34H 

LD 4,1 

LD C,0 

CALL OBDJ34H Programme 1e canal À du géné. sonore 
LD 4,7 savec la fréquence du MARK 

LD C,3EH 

CALL OBD34H sMet en route le canal À 

LA135:LD A, (DAGF9H) 

AND A 

RET N7 

CALL OBEOGH sit le clavier 

LALSD:CP ’a 3S'affranchit de l'état de CAPS LOCK 
UR C,LAÏ43 351 en minuscules, on soustrait 

SUB 20H jla valeur 20H 

LA143:CP 2DH Teste si c’est un code de controle 
JP C,LA{DI jui, on saute ! 

PUSH AF 

LD A,0 

CALL OBBP4H :Efface, le curseur 

POP AF 

CALL CBB5AH “Affiche le caractère saisi au clavier 
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PUSH AF 
CALL OBEBAH 
POP AF 

CP 20H 

JR 2,LAI86 

CP ‘4 

JR NC, LA172 
PUSH AF 

LD À, (DADFBH) 
AND À 

JR NZ, LAIS 
LD Ai 

LD (CAOFEH), À 
LD E,1PH 

CALL LAIAI 

JR LA185 
LA172: PUSH AF 
LD A, (OADFBH) 
AND À 

JR Z,LA185 

LD A,0 

LD {OAOFEH), A 
LD E,1FH 

CALL LAIAI 

JR LA1R5 
LAIBS:POP AF 
LAIB6:SUR 20H 
LD HL,0A2564 
LD B,0 

LD C,A 

ADD HL,BC 

LD E,(HL) 
CALL LAIAI 
LD. À, (DACFCH) 
DEC À 

LD (OAOFCH),À 
JR NZ,LALIS 
LD À,ODH 

JP LA202 
LAIAI:DI 

LD À, (OADFFH) 
LD C,A 

LD A,0 

CALL ORD34H 
CALL LA233 

LD D,5 


sPuis, réaffiche le curseur 


sTraitement de l'émission d'un ESPACE 


Saut à l'émission du code LETTRES 


Est-on actuellement en mode CHIFFRES 7 
36 oui, ii est inutile d'émettre le préfixe CHIFFRES 


tMémorisation du mode CHIFFRE et émission du 
scode CHIFFRE 


iTeste si on est en mode LETTRE 
j0ui, pas la peine d'émettre le préfixe LETTRE 


sMémorisation du mode LETTRE 

jet émission du code LETTRE 

‘Emission du caractère 

iTrouve dans la table de transcodage la correspondance 


sen code Baudot 


E contient le code Baudot du caractère à émettre 
On émet ! 
iTient à jour la position colonne 


Est-on rendu à la dernière colonne ? 
jui, alors on traite le CR/LF 
‘Plus d'interruption 5.V,P 


spendant l'émission des tonalités 


iGénère le SPACE 
sTeñporisation 
slnitialise le nombre de moments (5) 


LAÏBO:RR E 
JR C,LA225 
LD À, (OADFFH) 
LAIB7:LD C,A 
LD 4,0 

CALL OBD34H 
CALL LA233 
DEC D 

JR NZ, LAIRD 
LD A, (DADFEH) 
LD C,A 

LD A,0 

CALL ORD34H 
CALL LA22ZA 
EI 

RET 

LA{DI:CP ODH 
IR Z,LA202 

CP 12H 

JR Z,LAIF7 

CP OFH 

JR Z,LAIF7 

CP 1 

JP C,LA135 

CP OEH 

JP NC,LAI35 
LD D,A 

LD Ai 

LD (OAUF9H), À 
CALL LAZ3C 
XOR À 

LD (OAOF9H), À 
JP LA135 


:Moment suivant 


Emission du SPACE 


Emission du MARK 


Les interruptions ont droit de parole... 


iTraitement des codes de controle 


iTraitement des messages mémorisés 


LAÏF7:LD (OAOFAH),À 


LD A,7 

LD C,3FH 
CALL OBD34H 
RET 
LA202:PUSH AF 
CALL OBPBDH 
POP AF 

CALL OBESAH 
LD A,DAH 
CALL OBBSAH 
CALL OREBAH 
LD A, (OAOFDH) 


sCoupe le générateur sonore 
sSortie. 

iC'est un CR/LF 

son le traite 


ton l'affiche 


ton met curseur 
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LD (OADFCH), A 

LD E,8 

CALL LAÏAÏ son émet le CR/LF 

LD E,Z 

CALL LAÏAÏ 

JP LAI35 

LAZ25:LD À, (DACFEH) 

JR LAIR7 

LAZ2A:LD 2C,OF6OH :Temporisation 1/7 moment 
LA22D:DEC BC 

LD 4,8 

îR C 

JR NZ,LAZ3D 

RET 

LA233:LD BC, OA4DH :Temporisation { moment 
LA23b:DEC RC 

LD A,R 

OR C 

JR NZ,LAZIE 

RET 

LAZ3C:LD Hi,9000H :Récupère le message mémorisé 
LD A,D 

ADD A,H 

LD H,A 

LAZ42:LD A, (HL) 

CP OFFH iteste si fin de message mémorisé 
RET 2 

PUSH HL ‘Emission de la chaine de caractères 
CALL LAID ;du message 

CALL CBBIPH Test du clavier pour pouvoir interrompre le 
POP HL imessage mémorisé 

RET € 

INC HL 

LD AL 

CP OFFH 

RET 2 

JR LA3&? 

END 


3 RECEPTION RTTY -—- 


3 

ORG 9EODH Adresse d'implantation 

LOAD 9EOCH 

TABLE: EQU SE2DH Adresse de la table de transcodage 
TXPARA: EQU 9E0ÛH Utilisée Iors du retour au BAGIC 

TRMi:  EQU SED2H Temporisations fonction de 

TRM2: EQU 9ED4H la vitesse de décodage 

MEMTXT: EQU 9ED6H Pointeur mémoire texte recu 

3 

3 

GETSTR: EQU OBBR&H Installation d’une fenetre 

CLAVIE: EQU CEBIEH Lecture du clavier 

OUTVDU: EQU OBESAH Sortie d'un caractère vers l'écran 

; 

$ 

PORTIN: EQU OF532H Adresse du PORT d'entrée (ici, port imprimante) 
$ 

DS 20H Réserve d'octets (variables de travail) 


: 
ÿ 
Ê 
3 
= 
Si 


——— TABLE DE TRANSCODAGE -—- 


4 

DB 20H,54H, AH, 4FH, ZOH, 48H, 4EH, 4DH Table de transcodage 

DB ODH, 4CH, 52H, 47H, 49H, SOH, 43H, 56H établissant la 

DB 45H,5AH, 44H, 42H,53H, 59H, 46H, 58H relation entre le 

DB 41H,57H,4AH,255,55H, 51H, 4PH, 254 code Baudot recu et le 
DE O0H,35H, OAH, 39H, 20H, 48H, CH, 2EH coce ASCIT correspondant 
DB ODH, 294,344, 25H, 38H, 30H, 34H, 3DH au caractère. 

DB 39H, 28H, 2AH,3FH, ZZH, 36H, 45H, ZFH Cette table sert au 

DB 2DH,432H,07H,255,37H,31H, 284,254 moment de l'affichage. 


3 


5 DEBUT DU PROGRAMME RX -—— 


LD 4,0 Force arbitrairement le mode ‘LETTRES’ 
ATTSTP: CALL CLAVIE Test du clavier pendant 

CALL C,DECOKR l'attente du STÜP 

CALL LECINP 

JR NC, ATTETP 
ATTSTR: CALL CLAVIE Test du clavier pendant 

CALL C,DECOKE l'attente du START 


CALL LECINP 
JR C,ATTETR 
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TPOHLF : 


$ 


CHRTPO: 
TPOINT: 


ISPLET: 
AFICAR: 
3 

DECOKB: 


ISITC?: 


LD D,5 
LD BC, (TRM1) 
DEC BC 

LD AB 

GR C 

JR NZ, TPOHLF 


LD L,D 
LD BC, (TRM2) 
DEC EC 

LD AE 

OR € 

JR NZ, TPOINT 
CALL LECINP 
RL L 

DEC D 

JR NZ, CHRTPO 
LD DE, TABLE 
LD AL 

ADD 4,H 

PUSH HL 

LD L,A 

LD H,0 

ADD HL,DE 
LD A, (HL) 
POP HL 

CP OFFH 

JR NZ, ISPLET 
LD H,20H 

JR ATTSTP 

CP OFEH 

JR NZ, AFICAR 
LD H,0 

JR ATTSTP 
CALL OUTVDU 
CALL MEMORY 
JR ATTSTP 


CP ‘a’ 
JR C,ISITC? 
SUB 20H 

Cp €’ 


Nombre de moments 

Initialise valeur de la tempo. 
Attente d’un 1/2 moment 

pour centrage sur le bit, 


L contiendra le profil du caractère recu 
Initialise valeur de la tempo. 

Attente d’un moment 

pour se centrer, 


Lecture de l'entrée. 

Mémorise le bit recu. 

Décrémente le compteur de moments. 

Si non nul, saut au suivant. 

C'était le dernier, pointe sur la table, 


Tient compte de l’offset CHIFFRE/LETTRE 


Transformation Baudot/ASCITI 


Récupère le caractère ASCII 
Teste si code préfixe CHIFFRE 


5i oui, modifie l’offset 

Retour à la lecture entrée, 

Teste si code préfixe LETTRE 

Non, donc c’est un caractère ’affichable’. 
Modifie l’offset pour passage LETTRES 
Retour à la lecture entrée, 

âffiche le caractère, 

Met le caractère en mémoire texte, 

Retour à lecture entrée. 


DIFFÉRENTS TESTS DU CLAVIER 


Ignore l’étatde CAPS LOCK 


C pour forcer en CHIFFRES 7 


JR NZ,ISITL? 


LD H,20H Qui, modifie l'offset 
RET 
ISITL?: CPL? L pour forcer en-LETTRES 7 
UR NZ,ISITS7 
LD H,0 Gui, modifie l'offset 
RET 
ISITS?: CP? S pour effacer l'écran 7? 
JR NZ,ISITM? 
LD A,0CH Qui, exécute un PRINT CHR$&(12) (CLS) 
CALL GUTVDU 
RET 
ISITM?: CP M? N pour lire la mémoire 7? 
UR NZ,IGITE? 
LD À,2 Gui, renseigne le BASIC... 
JP SORTIE et prépare le retour, 
ISITE?: CP ?E? E pour émission 
JR NZ, ISITT? 
LD A,0 Qui, renseigne le BASIC 
JP SORTIE et prépare ie retour. 
ISITT?: CP °T! T pour modification des paramètres 7? 
RET NZ 
LD A,i Qui, renseigne le BASIC 
SORTIE: LD (TXPARA), À Retour vers le BASIC ou on lira 
POP HL l'adresse TXFARA pour savoir quoi faire... 
RET 
; 
; 
ÿ-—— LECTURE ENTREE SIGNAL --— (ceci peut etre modifié selon vos besoins} 
3 
LECINP: LD BC, PORTIN Lit l'entrée 
IN A, (0) et dépose dans l'actu. 
RLA 2 rotations successives 
RLA pour lire la ligne *BUSY” 
RET de l'imprimante. 
3 
MEMORY: PUSH HE Sauvegarde le contexte 
LD HL, (MEMTXT) HL pointe sur le prochain emplacement libre 
LD (HL),A On y range le caractère décodé. 
INC HL Incrémente ie pointeur mémoire 
LD A,H Teste si la ‘butée’ est atteinte 
CP 9ÙH { &SFFF ) 


JR NZ, ACTMEM 
LD HL, 8000H Qui, replace le pointeur en &8000. 
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BCTMEM: LD (MEMFXT},HL Range le pointeur pour la prochaine fois. 
POP HL Récupère le contexte. 

RET 
END 


CREATION DES MESSAGES MEMORISES POUR L'EMISSION RTTY 


Les messages mémorisés utilisés par l'émission RTTY pourront etre 
initialisés à partir du programme suivant, Il permet l'édition et la 
modification des messages, ainsi que leur sauvegarde sur disquette (ou sur 
cassette), Toutes les explications utiles sont données dans le programme, c'est 
pourquoi il peut sembler long... Rien n’empeche le lecteur un peu paresseux 
d'imaginer un programme réduit au strict minimum ! 


Une modification du programme peut aussi consister à remplacer le nom 
fixe *MESSAGE’, donné à la Sauvegarde des messages mémorisés, par un non 
introduit à partir d'une ligne ‘INPUT’. Ceci permettrait de disposer, sur la 
meme disquette, de messages différents, appropriés au trafic, par exemple: 
messages pour les VHF, en francais, pour le décamétrique, en anglais etc. 
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10 CREATION DE MESSAGES 


30 *POUR L'EMISSION RTTY 

40 ? 

50 INK 1,0:INK O,13:BORDER 13:MODE # 

60 LOCATE 10,2Z:PRINT'CREATION DES MESSAG 

ES MEMORISES POUR LE PROGRAMME RTTY" 

70 LOCATE 10,33 PRINT Mere 

80 PRINT:PRINT'Ce programme Va vous perm 

ettre de creer les messages memorises qu 

i seront utilises dans la partie & 

mission du RTTY." 

90 PRINT:PRINT'Ces messages doivent teni 

r sur 3 lignes, soit “#40 caracteres, bie 

n qu’un leger depassement puisse etre t 

olere." 

100 PRINT:PRINT'Lorsque vous voulez voir 
apparaitre un saut de ligne, lors de 1°? 

utilisation en RTTY, mettez dans vot 

re message le caractere 4," 

110 PRINT:PRINT'"'Ce caractere, provoquera 
lors de son emission, un retour chariot 
et un saut de ligne." 

120 PRINT:PRINT'Apres le dernier caracte 

re de votre message, appuyez sur <ENTER: 

130 PRINT:PRINT"'Vous pourrez examiner le 

Ss messages un par un et les modifier s'i 


ls ne vous conviennent pas. I1s app 
araissent alors a l'ecran comme ils appa 
raitront dans le programme RTTY," 


140 PRINT:PRINT'IL ne vous restera plus 
alors qu'a les sauvegarder sur disque (o 

u cassette)." 

150 LOCATE 25,25: PRINT CHR#(Z4) 3: "APPUYEZ 
SUR UNE TOUCHE® 3; CHR&(Z4) 

160 WHILE INKEYVS#="":WEND: MODE Z 
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170 PRINT:PRINT' Voulez-vous recuperer un 
fichier de messages memorises pour les 
modifier 7":GOSUR 4ZO:IF rée"N" THEN EX 
1980 PRINT:PRINT"'Introduisez la bonne dis 
quette (cassette) et appuyez sur un tour 

li e # 

LOC WHILE INKEY#z" te WEND s PRINT 

200 OPENIN "MESSAGE"3FOR nel TO 10: INPUT 
#9, mes$(n):NEXT:CLOSEIN: PRINT CHR# (7) 

#10 MODE EX: PRINT: GOTO 60 

He0 MODE Z:telsnuri 

230 PRINT:PRINT "Message No'"snuz"/10"s:Gû 

SUR 4460 

#40 nuenu+tis IF nueii THEN 270 

230 PRINT:PRINT'Voulez-vous entrer un au 
tre message (O/N) 7" 

260 GOSUR 420: IF vée"Nt THEN 20 ELSE 3 

(] 

#70 PRINTePRINT CHR&CE4) x" C'es 

+ le 10eme et dernier message, vous ne p 

Quvez en ajouter, sas CHRECZ4) x 

2680 PRINT:PRINT' Voulez-vous revoir Un mé 

ssage 7":GOSUR 430 

O0 IF rés "NT THEN 96 

O0 CLSs PRINT: INPUT "Entrez le numero (1 

a 10) du message a visualiger"snu 

310 IF nu£i OR nus10 THEN 300 

320 PRINT:GOSUE 510 

3430 PRINT:PRINT' Voulez-vous modifier ce 

message ?7":GOSUR 430 

SAC IF rés"Nt THEN #60 

330 PRINT:PRINT "Modification du message 
No"snus:GOSUR 460:GOT0 RQ 

360 CLS: PRINT CHRS& CE4) 3 "ATTENTION?" 3 CHRS ( 

4) sPRINT:PRINT" Si vous voulez conserver 
ces messages, vous devez les resauvéegar 
der sur disque" 

370 PRINT:PRINT:PRINT "Preparez la disqu 

ette et..." 

380 PRINT:PRINT:PRINT:PRINT".,..,., BPPUYEZ 5 

UR UNE TOUCHE" 

AOC IF INKEY#="" THEN 390 

400 ? Sauvegarde des messages 

410 OGPENOUT'MESSAGE"3:FOR Neil TO 1O0O:WRITE 

H9,MES CN) 2 NEXT : CLOSEOUT 


420 PRINT CHR#(C7) 2: END 

430 RBEINRENVS : RÉSUPPERS CRE) IF RéæetT OR 
(R$<r"O" AND RS<F'N") THEN 430 

440 RETURN 

430 7 Saisie du message 

440 PRINT:PRINT'ENTREZ LE MESSAGE DE %40 
CARACTERES MAXIMUM CENVIRON 3 LIGNES)" 

470 PRINT" Le caractere % sumbo 
lise le CR/LF? 

480 PRINT:INPUT MES (NU) 3 MES NUDÆeUPRPERS (M 

ES (CNUD):MES (NU EMES (NUS +CHRS (250) 

#90 PRINT:PRINT'La longueur du message € 

st de"sLEN(Mme# (nu))-ls"caracteres" 

300 RETURN 

BIO FOR nel TO LENCMe#(nu))-1ls:c#=MIDS(me 

SCnu),ns 1) 

HeO IF cHErtAN THEN PRINT Cé:ELSE PRINT 

330 NEXT:PRINT:RETURN 


REGLAGE DU DEMODULATEUR RTTY 


Le réglage du démoduiateur à PLL, utilisé pour le décodage RTTY, sera 
grandement facilité par l’utilisation d'un oscilloscope. Néammoins, il est 
possible d'atteindre rapidement le but en lisant ce qui suit, 


i- Utiliser des composants de bonne qualit (résistances et 
condensateurs) dans l'environnement de la PLL, 


2- Pour la mise au point, utiliser le petit programme ?GENETONS* qui 
permettra, au besoin, d'ajuster la valeur des résistances (il est plus difficile 
et plus onéreux de jouer sur Les condensateurs) R1, R2, RS du circuit de 
commutation de shift, La résistance ajustable servant à régler l'accord fin du 
VCQ, sera avantageusement placée sur la face avant du boitier du démodulateur, 


J- Le programme *GENETONS" génère, comme son nom l'indique, des couples 
de tonalités correspondants aux valeurs de shift généralement rencontrées sur 
les ondes. Une fréquence fixe, à 1275 Hz est émise en alternance avec les 
fréquences décalées de 170, 425 et 650 Hz, Ii faut souligner que, à cause de la 
programmation du générateur sonore de L'AMSTRAD, les fréquences produites ne 
sont pas exactement ce qu'elles devraient etre, La tolérance est néammoins 
acceptable. 
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PROCEDURE 


Relier la sortie EF (jack stéréo) de 1'ANSTRAD à l'entrée du 
démodulateur RTTY (par un cordon blindé). 


Lancer le programme *GENETONS’. Il génère le couple de fréquences 
correspondant au shift 170 Hz, soit 1275 et 1453 (au lieu de 1445), Vous pouvez 
les entendre en ajustant le volume sonore de votre AMSTRAD. Ajuster s’il le faut 
la valeur de RI, pour obtenir un clignotement régulier des diodes MARK et SPACE, 
la diode ?PORTEUSE*’ étant éteinte. Le potentiomètre ‘Accord Fin’, permet de 5e 
centrer dans la boucle de capture. 


Un appui sur une touche permettra de générer le couple de fréquences 
suivant. La procédure est identique. Si vos composants sont de bonnes 
tolérances, vous n'aurez pas besoin de retoucher au réglage du potentiomètre de 
l'accord fin. Une légère différence entre les 3 shifts est néammoins acceptable, 


Votre démodulateur est désormais réglé. 
10 * GENERATEUR DE TONALITES 


#0 ? 

30 * Diviseur = 62500 / Frequence 

40 7? 

30 ? SOUND Canal,Diviseur, Duree, Volume 
&Q ? 


70 MODE Xs:LOCATE 35,43: PRINT" GENETONS" :LO 
CATE 35,5: PRINT" —————-——— u 

80 LOCATE 15,7:PRINT'Sortir du programme 
par BRESK (Z appuis sur ESC)" 

90 LOCATE 11,9:PRINT"Pour changer le cou 

ple de frequences appuyer sur <ESPACE:*" 
100 FOR nzl TO 3:READ fvin),ftin),dvin), 

Sh(n):NEXT 

110 FOR nel TO G:LOCATE 33,13 

120 PRINT "Shift'"s;sh(n)s"MHz" 

130 LOCATE 15,17:PRINT "Frequences 12775 

HE &"sfvin);" "MHz (au lieu de"sft(n)s"Hz)" 


140 SOUND 1,49,5,15:SOUND 1,dv(n),5,15 
150 WHILE INKEY#="":GOTO 140:WEND:NEXT:G 
OTO 110 

160 DATA 1453,1445,43,170 

170 DATA 1689,1700, 37,425 

180 DATA 7155,2125,29,850 
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UTILISATION D’UNE CARTE D’ENTREE 


Nous avons souligné précédemment cette possibilité. 
Î- Cas d’une carte E/S quelconque. 


Votre carte est implantée à l'adresse &Fuxx. Vous disposez de 8 bits en 
entrée (0 à 7}, et vous décidez d'utiliser le bit 7, sur lequel vous cablerez la 
sortie du démodulateur RTTY. Il faudra donc modifier le programme assembleur de 
la partie réception comme suit: 


LD BC, OFxxxH (exemple LD BC, OFRFAH) 
IN À, (0) 

RLA 

NOP 

RET 


Une rotation à gauche amène le bit 7 dans l'indicateur de retenue qui 
est testé dans la suite du programme. Dans l'exemple donné, votre carte est à 
l'adresse &FRFAH. Si vous aviez choisi le bit O0, il aurait fallu faire une 
rotation à droite, RLA, au lieu de RRA. Si vous aviez choisi le bit 1, c'est 2 
rotations à droite que vous auriez eu à faire. C’est la raison pour laquelle 
nous avons prévu un NOP, instruction qui ne sert à rien, et qui permet de 
conserver au programme son aspect initial, pour faciliter la modification 
directe des lignes de DATAS, pour les lecteurs ne possèdant pas d'assembleur, 


La modification dans le BASIC porte sur les lignes 1720 et 1730, La 
séquence d'origine est 01,432,F5,ED,78,17,17,C9, 


32,F5 donnent l'adresse de la carte (ici F533} 
17,17 indiquent ici 2 RLA 
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Voici, dans le cas de l'exemple ci-dessus, adresse FIFA et bit 0, ce 
qu'il aurait fallu écrire en remplacement: 


01,FA,FR,ED, 78, 1F,00, 09 

FA,FE remplacent l'adresse F535 

ÎF est le code du RRA qui remplace le premier RLA (17) 
OÙ est le code du NOP qui remplace le second RLA (17) 


Les autres octets restent inchangés. 

2- Cas de l'utilisation de la carte SSTV/FAY, 

Cette carte laisse 4 entrées de libres, Ces entrées sont sur les 4 bits 
de poids fort. Prenons l’exenple du bit (D7, patte 11 du 7416244), Gi vous 
décidez de cabler la sortie du démodulateur sur ce point, le programme deviendra 


le suivant: 


LD EC, OFRFFH Adresse de l'entrée 


IN A, (C) Met dans l'accu 

RLA Passe bit 7 dans retenue 
NOP 

RET et revient 


En BASIC, celà donne pour la modification des lignes 1720 et 1740 
..01,FF,FB,ED,78,17,00,C9... 

Les autres octets restent inchangés. 

3- Utilisation de la carte SSTV/FAX SANS DÉMODULATEUR 

Celà est possible, en VHF ou en ABSENCE TOTALE DE BROUILLAGE, si la 
réception est excellente. On peut se passer du démodulateur RTIY et n'utiliser 
que la carte SSTV/FAX couplée à la carte ‘entrée’, Il faut savoir se caler 
correctement de manière à ce que, seul le BIT O de l'entrée clignote au rythme 
du RTTY. Vous pouvez faire des essais au moyen du programme "REGLAGES', prapacé 
dans ce livre pour ajuster les comparateurs de la carte SSTV/FAX, 

Le programme sera alors modifié comme suit: 


…0,FF,FB,ED, 78, 1F,00, C9... 


Les autres octets sont inchangés, 


Le sous-programme assembleur (LECINP) devient: 


LD BC, OFEFFH 
IN À, (C) 
RRA 

NOP 

RET 


Un dernier mot, pour ceux qui ne connaissent pas l'assembleur: dans 
notre listing réception, PORTIN définit l'adresse de l'entrée... 
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L'AMSTRAD ce prete assez Dien à ce genre de réception car il a. en mode 
2, une cute graphique très honorable. Hien sur, le lecteur doit etre 
averti de ce qu'il ne doit pas s'attendre à des résultats comtarables À ceux 
obtenus au mouen de machines mécaniques, Afin de ne pas alourdir je texte, nous 
n'allons gas décrire en délail les car tiques de ce qenre de transmission, 


Fr 
invitant le lecteur à sa reporter à l'annexe de ce livre où à un ouvrace 
shécialisé. 


CR 
ur 


La récention FAX s'effectuera à 120, 100, où 40 tours/mu. vitesses les 
olus utilisées dans Îles Éd en bandes décamétriques  ([météor, 
L'interface utilisée est !à meme que cour la S6TV, ce oui simplifie largement 
les choses, 


L'image recue défile à l'écran, Elle est en meme temss mémorisée dans 
l'ordinateur. Comme la mémoire du CPC, bien que vaste, n pas infinie, dla 
réception s'arretera dès que celle-ci sera oleine. La cacacité de stockage est 
de 32 KO (de &2000 à &9FFF). 

La réception avec mémorisation ne cure en fait que l'équivalent de £00 
lignes de balayage, soit environ & minutes à 120 tours/mn, 4 mn à 180 t/mn st 
environ 3 mn à 240 t/mn, 


RECEPTION GANS MEMGRISATION 


L'image défile à l'écran mais n'est pas mémorisée, Ceci permet de faire 
use réception permanente, ce qui est utile car la transmission de certaines 
cartes météo demande jusqu'à {5 minutes. 
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Dans les deux cas de réception, seulement une licne sur deux est 
décodée. 


Pendant la réception, une image qui penche à droite pourra etre 
redressée en appuyant sur la touche ‘C", une image qui penche à gauche avec la 
touche "CLR", Ces inclinaisons ne sont pas dues à un défaut du logiciel mais à 
la dispersion (léger écart de fréquence) entre les horloges des différents 
AMSTRAD. Nous verrons un peu plus loin comment minimiser ce défaut en adaptant 
le logiciel à votre ordinateur. Cette précaution évitera d'ajuster le réglage à 
chaque utilisation. 


Si vous entreprenez la réception d'une image déjà commencée, il est 
plus que probable qu'elle ne sera pas bien cadrée, Dans ce cas, quelques appuis 
BREFS sur la touche “CTRL* rétablieront le cadrage correct, 


L'arret de la réception s'obtient en appuyant sur "SHIFT*, 
En mode réception continue, 4 possibilités s'offrent alors à vous: 
- vous appuuez sur ENTER et revenez au menu principal, 
- vous appuuez sur COPY et chtenez une copie de l’image sur 
imprimante. 
— Vous apouyez sur une touche numérigue et votre image sera 
sauvegardée sur disquette {ou cassette) sous le nom FAXIMA suivi d'un chiffre de 
0 à 9, selon la touche que vous aurez frappée. Exemple: FAXIMA4. 


ATTENTION, sur le 464, la cassette doit etre positionnée et les touches 
PLAY et RECORD enfoncées, Sur les AMSTRAD équipés de disques, veillez à ce 
qu'une disquette soit présente, avec suffisamment de place disponible pour 
accueillir les 17 KO de chaque image... 


En mode réception mémorisée, après l'appui sur “SHIFT" permettant de 
quitter le décodage, l'appui sur ESPACE" renvoie au menu, [Il est alors possible 
de Sauvegarder l'image ou de l'imprimer. 


Pour obtenir une image bien cadrée dès le début, il suffit de démarrer 
la réception (appui sur ENTER suivant l'option du menu) pendant l'émission des 
pulses de synchronisation, signal caractéristique que vous reconnaitrez avec un 
peu d'habitude... L'image sera alors parfaitement cadrée. 


L'option LECTURE permet de récupérer une image sauvegardée par la 
fonction SAUVEGARDE du menu. ATTENTION, ceci ne s'applique qu'au cas d'une image 
sauvegardée à partir du menu. Pour une image sauvegardée en sortie de réception 
continue", il faudra utiliser l'option {1 du menu et appuyer sur "COPY" pour 
imprimer l'image ou sur *ESPACE* pour revenir au menu. 
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L'option IMPRESSION est prévue pour fonctionner avec une imprimante de 
tupe EPSON ou compatible. Ce choix a été fait parce que ces imprimantes sont les 
plus répandues. Voici quelques modèles compatibles: 


AMSTRAD DMP 2000 

“EPSON LX et FX 

BROTHER Ni009 

-CENTRONICS GLP dit 
-SMITH CORGNA DI00 ou D200 
-STAR GEMINI 5G 10 


Il est à noter que la recopie fonctionne aussi sur la MANNESMAN-TALLY 
MTRCS mais avec une image un peu plus étroite en largeur, L'utilisateur pourra 
toujours adapter la routine de recopie, implantée à partir de l'adresse £ASOO, à 
son type de matériel... 


Pour tous ceux qui ne possèdent pas d'imprimante, il est possible de 
visualiser l'image en mémoire par l'option 10 du menu. On fait alors défiler 
l'image grace aux touches de montée et descente du curseur. 


CONNEXIONG: 11 faut utiliser la carte interface décrite dans ce livre 
pour pouvoir décoder, ATTENTION, si vous lancez la réception sans que la carte 
soit connectée, le programme se bloque... 


ADAPTATIGON DU PROGRAMME À CHAQUE GRDINATEUR 


Comme nous l'avons écrit, les écarts entre horloges des différentes 
machines ont une incidence sûr l'image recue. Four adapter au mieux le programme 
à votre AMSTRAD, voici le procédure: 

- Calez le récepteur correctement sur l'émission et redres: 
au mieux l'image avec les touches "T° et CLR*, 

- érretez alors le programme par “SHIFT* puis Freak {2 apouis 
successifs sur la touche “ESC, 

- Tapez au clavier ? PEEKISACOS) et ? PEEK(SAOO4), 

- Renortez les deux valeurs obtenues dans le programme BASIC 
à da ligne 150 si vous réglez je 120 t/mn, 160 pour le 180, 170 si vous étiez en 
240 t/mn. C'est au prix de ce travail un peu fastidieux que vous obtiendrez un 
programme pleinement opérationnel. 

- Sauvegardez alors cette version "personnalisée" du FAX, 


Malheureusement, on constate dans certains cas des écarts dans le 
temps, surtout si votre AMSTRAD est dans un ZIocal soumis à d'importantes 
variations de température, Dans ce cas, il n'y à pass d'autre remède que 
d'utiliser les touches de “redressement. 
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COMMENT ENTRER LE PROGRAMME FAX 


Comme tous les programmes comprenant du langage machine, la plus grande 
rigueur est le maximum d'attention sont exigés... 


i- Taper le programme BASIC principal et le sauvegarder (SAVE *FAX*), 

2- Effacer par NE le contenu de la mémoire. 

3- Taper le chargeur héxadécimal écrit en BASIC, 

4- Faire RUN et... se reporter à la procédure décrite dans le chapitre 
6STV pour introduire le code machine. Vous aurez 3 tables à introduire. La 
première commence en &AO0Û, la seconde en &A200, la dernière en &AJE7, Ne pas 
oublier de taper l’arobas (A commercial) après chaque table. 

3- Quand l'ordinateur affiche SAUVEGARDE, mettre en position la 
cassette où la disquette, et sauvegardez cette partie par: 


SAVE “FAXR.BIN",B, &ADOG, &577 


&- Pour recharger le programme, faire RUN'FAX", Le programme BASIC 5e 
charge en premier et appelle automatiquement le programme en langage machine, 


RECEPTION FAC-GIMILE (FAX) 


CE LISTING NE DOIT PAS ETRE SAISI 


ORG OAOOSH 

LOAD CAOO5H 
MASG:EQU OADO1H 
EIT:EQU OA0O2 
TEMPO:EQU CADO3H 
LD 4,8 

LD (BIT), À 

LD 4,80H 

LD (MASQ),À Frépare le masque de point/octet 
1 Inhibition des interruptions 

LD B,2 
EVNC:CALL LECT 
CP OFFH 

JR NZ, SYNC 
STSYNC: CALL LECT 
CP O 


Début d'implantation mémoire 


Lecture de ia valeur recue à l'entrée 


éttente de sunchronisation (Pulses de synchro) 
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JR NZ, STSYNC 

DJNZ SYNC 

LD IV, 2000H 
DEBUT:LD HL, (04575H) 
LD P,80 


Âttend la fin du pulse de synchro 

Compte 20 pulses 

IŸ pointe adresse début mémoire de stockage 

HL pointe adresse début ligne du bas de l'écran 
B contient le nombre d’octets par ligne 


REMPL:LD A,0 
LD (HL),À 
INC HL 
DJNZ REMPL 
LD HE, (0A575H) 
LD EC, 640 
ECR:PUSH EC 
CALL LECT 
PUSH EC 
PUSH HL 

LD HL,MASQ 
AND {HL) 
LD B,A 

POP HL 

LD A, (HL) 
OR B 

POP BC 

LD (HL),A 
PUSH HL 

LD HL,MASÜ 
RRC (HL) 
LD (IV+0),A 
LD A,(HL) 
AND BCH 
RLCA 

PUSH DE 

LD D,0 

LD E,A 

ADD IY,DE 
PUSH IY 
POP HL 

LD A,H 

POP DE 

AND À 

CP CADH 

JP Z,FIN 
PUSH DE 

LD DE.MASQ 
LD A, (DE) 
AND 80H 
POP DE 

POP HL 
RLCA 

ADD AL 
LD L,A 


Efface le ligne du bas de l'écran 
HL contient l'adresse de la ligne du has 
BC contient le nombre de points par ligne 


Lit la valeur recue 


Positionne le bit dans l'octet considéré 


Affiche le nouveau point recu 


Prépare le masque pour le point suivant 
Méncrice 


Change d’octet si les 8 bits ont été 
utilisés dans la mémoire, 


Teste si fin de mémoire {&AÜO) 
Arret si plus de mémoire 


Change d’octet si les & bits ont êté 
utilisés dans !’écran 
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XOR À 

ADC A,H 

LD H,4 

PUSH BC 

CALL KEY Test du clavier 

PÔP BC 

CP 223 ârret si appui sur SHIFT 
JP 2,STQP 

CP 127 Recadre si appui sur CTRL 
CALL 7, CADRE 

POP RC 

DEC BC 

LD A,B 

OR € 

JR NZ,ECR Boucle si ce n'est pas le dernier point ligne 
LE B,200 

LD IX,0AJE7H Scrolling écran 

SUITE:LD L,(1X+0) 

LD H,(IX#1) 

LD E, (IX+2) 

LD D,(IX+3) 

LD C,8Ù 

LIGN:LD 4, (DE) 

LD (HL),4 

INC DE 

INC HL 

DEC C 

JR NZ,LIGN 

PUSH RC 

LD BC,Z 

ADD IX,BC 

POP EC 

DJNZ SUITE 

CALL KEY Test clavier 

AND 3 

PUSH HL 

PUSH DE 

LD HL, TGUCH HL contient l'adresse table des touches 
LD D,0 

LD E,A 

ADE HL,DE 

LD E,(HL) Si appui sur ° diminue la tempo 
INC HE 

INC HL Si appui sur CLR augmente la tempo 
INC HL 


INC HL 
LD D, HD) 
LD HL, (TEMPO) 
ADD HL,DE 
LD (TEMPO), Hi 
FÜP DE 
POP HL 
LD EC, (TEMPÜ) Tempo de fin de ligne 
F2:DEC RC 
LD AE 
ÛR € 
GP 
NOP 
NOP 
JR NZ,T2 Fir de tempo de fin de ligne 
JP DEBUT Continue 
KEY:LD BC, OF40EH Lecture clavier 
OUT (01,0 
LD B,0F6H 
IN A, (0) 
AND 3OH 
LD CA 
GR OCOH 
OUT (C),A4 
OUT (C),C 
INC R 
LD 4,974 
OUT (C),4 
PUSH BC 
LD C,D42H 
LD B,0F6H 
OUT {C),C 
LD B,0F4H 
IN A, (0) 
PGP RC 
PUSH AF 
LD A,82H 
OUT (C),A 
DEC B 
QUT (C),C 
POP AF 
RET 
FIN:PÔP HL brret de la réception 
STOP:EI 
POP HL 
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RET 
LECT:PUSH BC 
PUSH HL 

LD BC,OFBFFH 
IN À, (C) 

AND OFH 

LD HL, TABLE 
ADD AL 

LD L,A 

XOR À 

ADC AH 

LD H,A 

LD A, (HL) 
POP HL 

LD B,0FFH 
T{:DINZ TI 
POP BC 

RET 

CADRE: PUSH BC 
LD B,150 
TS:DINZ T5 
POP RC 

RET 


Lecture du port de l'interface 


Va chercher valeur à afficher dans la table 


Tempo inter-points 


Tempo de recadrage 


TABLE:DB 0,0,0,0,0,0,295,253,255 
DB 255,295,295, 253,255, 293,255 


TOUCH:DP 0,255,1,0 


DB 0,255,0,0 


ÔRG DA200H 

LOAD DA200H 

LD IX, 2000H 
ECRAN:CALL EXEC 
JR TESKEY 
EXEC:LD HL,OAJE7H 
PUSH IX 

LD B,200 
AFFI:LD C,50H 
LD E, (HL) 

INC HL 

LD D, (HL) 

INC HE 

OCT:LD A, (IX+0) 
LD (DE),A 

INC DE 

INC IX 


Affichage de l'image mémorisée 

par transfert de 1a zone mémoire vers l'écran 
IX contient l'adresse de début de mémoire 
Transfère mémoire vers l'écran 

Test du clavier 


Transfère le contenu de la mémoire dont 
le début est donné par IX, dans l'écran 


DEC C 
JR NZ,0CT 
DJNZ AFFI 

POP IX 

RET 
TESKEY:PUSH HL 
PUSH DE 

PUSH IX 

CALL OBB1BH 
POP IX 

POP DE 

POP HL 

JR NC, TESKEY 
CP 20H 

RET Z 

CP OFCH 

JR Z,MONTE 

CP OFIH 

JR Z,DESCEND 
JR TESKEY 
MONTE :PUSH HL 
PUSH IX 

POP HL 

LD AH 

CP 20H 

JR NZ,0K1 

LD AL 

CP 0 

JR Z, RETOUR 
OK1:PUSH DE 
LD DE, 50H 

XOR À 

SBC HL,DE 

POP DE 

PUSH HL 

POP IX 
RETOUR: POP HL 
JR ECRAN 
DESCEND: PUSH HL 
PUSH IX 

POP HL 

INC HL 

LD A,H 

CP &0H 

JR Z,RETOUR 
PUSH DE 


Test du clavier 


6i appui sur ESPACE, arret 
Si appui sur curseur haut, écran monte 


Si appui sur curseur bas, écran descend 


Monte l’image d’une ligne 


Descend l'image d’une ligne 
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LD DE,50H 
DEC HL 
ADD HL,DE 
POP DE 
PUSH HL 
POP IX 

JR RETOUR 
LD IX,0 
CALL EXEC 
RET 


ÔRG DAZ80H 
LOAD DA2E0H 
LD C,1EH 
CALL IMP 

LD C,40H 
CALL IMP 

LD C,1EH 
CALL IMP 

LD C, 31H 
CALL IMP 

LD DE,0 

LD HL,0 
CALL OBRCOH 
LD HL,018FH 
LIGNE:LD DE, 0 
PUSH HL 
PUSH DE 

LD C,iPH 
CALL IMP 

LD C,4CH 
CALL IMP 

LD €,7FH 
CALL IMP 

LD €,02 
CALL IMP 
POP DE 

POP HL 
POINT: CALL DEBIPH 
RET € 

PUSH HL 
PUSH DE 

LD C,0 

LD B,7 
BITS:PUSH RC 


Recopie écran sur imprimante 
compatible EPSON 


Initialise l'imprimante 


Interligne de 7/72 couces 


Met l’origine graphique en 0,0 
HL contient la position Ÿ du point en haut à gauct 
DE contient position X 


Nombre de points par ligne 


ârret si appui sur une touche 


C, registre de transit 
E, nombre de points verticaux utiles par passe 


PUSH DE 

PUSH HL 

CALL OCBEFOH Lit la couleur du point sélectionné 
POP HL 

POP DE 

POP BC 

AND À 

JR NZ,ETEIND 

SCF 

ETEINDIRL € Mémorise 

DEC HL 

DEC HL 

LD 4H 

CP OFFH Test de fin d'écran 
JR NZ,OUT 

XOR À 

RL C 

RL C 

RL C 

JR ÜKZ 

OUT: DJNZ BITS Prend bit suivant 
OKZ:X0R À 

CALL IMP 

POP DE 

POP HL 

INC DE 

LD 4,D 

CP Où 

JR NZ, POINT 

LD AE 

CP 7FH 

JR NZ, POINT Groupe de bits suivants 
LD DE,OEH 

XOR À 

SBC HL,DE 

LD AH 

CP OFFH 

JR Z,TERM Fin 

LE C,OAH 

CALL IMP Retour à ls ligne 
UR LIGNE 

TERN:LD C,1BH 

CALL IMP 

LD C,4ih 

CALL IMP Interligne à 4/72 pouces 
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LD C4 
CALE IMP 
LD C.D4H 
CALL IMP 
RET 
IMP:CALL OBDZEH S/P d'envoi d’un caractère à l'imprimante 
JR C,IMP 

LD AC 

CALL OBD2PH 
RET 

END 
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DE L'IMAGE MEMOGR 


LéQ PRINT: PRINT'PRENDéNT Lé& RECEPTI: 
REDRESSE UNE IMAGE QUI PENCHE & DROITE, 
FÉLRT UNE IMAGE QUI PENCHE & GéUCHE., *SHI 

FT SUSPEND Lé RECEPTION JUSQU L'APRBUT 
EUR UNE SUTRE TOUCHE, QUI FAIT REVENTR 

AU MENU. P&R CONTRE, APRES S SHIFTE LT APBUT 
SUR COPY, 

LSQ PRINT'IMPRIME LE CONTENU DE L'ECRÉN, 


L4Cr REM 
ASC PRINT:INPUT SVOTRE CHOIX s "ts 

160 IF VEI OR Viii THEN 30 

LPC IF Vi THEN  POKE &AOCS, 1083: POKE &40 
O4, TIGE PORE BALLE, 130:G07T0 #80 

LOC IF Vez THEN  PGOGKE &AOCE, is PORE &SQO 
4 S4s PORE BALIE, ds GOT 20 

LOC IF Ve THEN PRE &BACON, SG :PBOKRE &AOC4 
ali PÈRE &RAILE, Se GOTO 
O0 IF Ve THEN POKE &fñl 
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LiGOTE 17 
SIC IF VeS THEN POKE SBAOSE, OaVes:GOTO 18 
He IF Væé THEN POKE SACS, Os Ve: GOTO 19 


SOC IF Ve7 THEN GOTO 50 

240 IF Vze8 THEN GOTO 370 

SO IF Veg THEN GOTO 360 

LG IF Vel THEN CélL BAQ0sGOTO 30 

TC IF V&li THEN GOTO 430 

EA0 CALL RACUS:PORE RACE, 400 

SO OEBESINKREVS: IF kégatr THEN 490 

300 IF ASCCESI ETS THEN 30 

GO IF ASCIRSImTT4 THEN CALL &AZGCs: PRINT 
HO, CHRE (és PRINTRO:GOTO 30 

GEO IF ASCCER)ESRTO OR ASCIESIELST THEN 
90 

330 nés FAXIMÉN+HESRIGAVE n$, bb, &C000, 84000 
540 GOT 30 

330 MODE Ze INPUTINOM DE L'IMAGE CAC8R. M 
KINÉ 

JôÛr SAVE NE, R, &ECOC, 8000: GOT GO 

370 MODE Z:INPUTONOM DE L'IMAGE (OSCAR, M 
RAI TINS 

SG LOëD N&:sGOTO 3 

90 PORE BAT, Os POKRE BANT4, RAC CALL BAS 
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TABLE 3 


COMMENTAIRES SUR LEG IMAGES FAX 


Les recopies d'écran ont été effectuées sur une imprimante MÉNNECMAN-TALLY MTGOS 


Les figures 1 à 4 sont des recopies de réceptions ‘non mémorisées’ (voir texte), 
Les documents ont été retournés de 90 degrés par rapport à la visu écran, 


En règle générale, il ne sera pas aisé à l'amateur non averti, d'interpréter les 
émissions recues, 





Figure Î: Sur ROME 8.146 khz. 
À l’extreme gauche, on distinaue le talon de la botte 
italienne. Au centre, l'iie de CRETE. 
Noter la présence de Z images: carte et fond de carte, 


161 


162 





Figure 2: 


Sur RÔME 9.146 khz. 
L'Espagne, la Corse, la Sardaigne, la botte italienne et 
la Sicile, l'Afrique du Nord servent de fond à ces lignes 


L 


150’. Au 1/4 gauche de la carte apparait une ligne noire 
épaisse: ici, on n'avait pas démarré la réception sur Îles 
pulses de synchro... 





Figure 3: Sur ROME 8.146 khz. 
Un autre type de graphique, plus abstrait... 
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Figure 4: Sur ROME 8.146 khz. 
La Méditerranée. Repérez-vous grace à la Corse et la 
Sardaigne, au centre de la carte, Noter ici les Z cartes... 


La] NE PÈE Se :18 7 
Se = = 





Figure 5: Sur ROME 8.146 khz. 
Cette carte est d’un format différent car elle émane de la 
copie du contenu de la mémoire (réception avec mémorisation). 
Malgré tout, il manque toute la moitié gauche, à l'ouest du 
méridien de Greenwich. On voit ici tout l’est du bassin 
méditerranéen. Le ler 1/4 gauche montre le pied de la botte 
italienne et la Sicile. A droite, CHYPRE, les cotes de 
Syrie, Turquie etc... 
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Figure 6: Sur LONDRES 4,248 khz, 
Morceau de carte représentant la hauteur des vaques et 
la houle (Waves and Suell}). Nous avons sélectionné l'extrait 
situé entre les 45ème et 55ème parallèles. On peut voir, sur 
la droite, l'Irlande, la Grande-Bretagne, la France et la 
naissance de l'Espagne. 
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Fiqure 7: Sur 138 khz 
On peut aussi recevoir des images de ce genre, mais le 
logiciel de décodage n'est pas prévu pour traduire les divers 
niveaux de gris d’une photo. Bonjour Monsieur l’Inconnu ! 
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Fiqure 8: 





FéBEY- FARIS 


Sur 144 Mhz... 

Le fac-similé commence à susciter de plus en plus d'intéret 
chez les radioamateurs. Ici, F6BEY, de Paris, transmettait 
une image à FIEZH, pour l’aider à mettre au point le logiciel 
de décodage proposé dans ce livre... 
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Figure 9: Sur ROME. 
Effet de loupe intéressant obtenu en décodant en émission 


{120 tours en position 240 tours/mn. Cà peut servir ! 
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LES INTERFACES 


Cet ouvrage serait incomplet si nous ne vous proposions les schémas des 
cartes interfaces entre récepteur et ordinateur, 


Les ‘décodeurs’ ou ‘démodulateurs’, bien que ces termes soient 
impropres, sont destinés à transformer les signaux analogiques, issus de a 
sortie BF du récepteur, en signaux susceptibles d'etre exploités par 
l'ordinateur, c'est à dire ‘logiques’, 


Tout montage capable de réaliser cette transformation pourrait, en 
théorie, etre utilisé. 


En CW, le montage fonctionne en décodeur de tonalité. Lorsque le signal 
recu entre dans la bande de fréquences du NE 567, le signal en sortie bascule au 
ruthme de la manipulation. Ce signal est disponible sur la sortie d'un 
transistor, Une diode électroluminescente s'allume sur les points et les traits, 


La mise au point est pratiquement inexistante. À l’utilisation, régler 
la commande de fréquence du récepteur pour un clignotement franc de la diode, la 
‘bande passante’ étant déterminée par P2, 


En RTTY, c'est un peu la meme chose, sauf que !à, il faut reconnaitre 
deux fréquences, celle du MARK et celle du SPACE. LE ÂR 24211 est un circuit 
intégrant une PLL (boucle à verrouillage de phase) capable d'acconplir ce 
travail. La largeur de la boucle de capture sera déterminée par des éléments 
commutables, afin de pouvoir recevoir des émissions à shift différents. 


Cette solution du ‘démodulateur à ALL? n'est certainement pas la 
meilleure au point de vue de la fiabilité en réception. Lorsque le brouillace 
est important, la PLL a tendance à se verrouiller sur n'importe quoi, Il est 
préférable d'utiliser, dans ce cas, un montage avec d'excellents filtres actifs, 
Néammoins, dans le soucis de fournir des montages simples à réaliser, nous 
préconisons le XR 2711, quitte à changer par la suite... 
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Un ensemble de diodes électroluminescentes (LED) indique les 2 
fréquences (MARK & SPACE) et la perte de porteuse (Boucle hors verrouillage). Un 
CD 4049, circuit intégrant 4 inverseurs, est utilisé pour allumer les LED et 
pour l'inversion de shift. 


La mise au point sera facilitée si les composants choisis au départ 
sont de bonne qualité (condensateurs et résistances du PLL), Bien que celà ne 
soit pas indispensable, l’aide d’un oscilloscope est souhaitable, Il est 
possible de régler, avec un peu d'habitude, l'interface sur la réception directe 
de signaux RTTY. L’alternative consiste à se servir de l'AMSTRAD comme 
générateur de fréquences MARK et SPACE et de coupler sa sortie BF à l’entrée du 
montage, La partie émission du programme, si vous en etes sur, peut aussi etre 
utilisée. Les diodes Di et D3 doivent clignoter franchement et DZ doit rester 
éteinte. Le centrage se fera avec le potentiomètre d'accord fin du VCO. 


L'ENTREE SUR L’AMSTRAD se fera sur la prise imprimante. Reconnaissons 
tout de suite le défaut de ce choix: l'imprimante ne peut etre utilisée 
facilement pendant le décodage... I1 faut la débrancher, pour mettre en place le 
connecteur venant de l'interface ou encore, prévoir sur la ligne "BUSY’ du cable 
ieprimante un inverseur à 2 positions: l’une pour le décodage, ” l'autre pour 
inprimer. Ce dispositif, peu technique, a le mérite d'etre facile à mettre en 
oeuvre, l’arrivée du signal en provenance du ‘décodeur’ se faisant sur les 
points {i, c'est-à-dire *BUSY’, pour le point chaud, et 14 pour la masse de la 
prise imprimante de l’AMSTRAD. Reportez-vous au manuel de votre AMSTRAD pour 
repérer ces points sur le connecteur imprimante. 


Il y a mieux... mais c'est plus cher ! L'utilisation d'une carte 
d'entrée (ou d'entrée-sortie) donne un aspect plus technique à la liaison 
récepteur / ordinateur. Précisons tout de suite que les logiciels CW et RTTY 
n’ont pas été prévus pour celà, dans le but de proposer des interfacages aussi 
simples que possible, mais qu'ils peuvent etre facilement modifiés. 


Un minimum (tout petit...) de connaissances en assembleur permet de 5e 
tirer d'affaire et de lire, non plus l'entrée de la ligne 'EUSY de 
l'imprimante, mais celle de votre carte d'entrée-sortie favorite. Dans ce cas, 
il n'est plus nécessaire de brancher et débrancher l'imprimante... 


Le lecteur pourra également utiliser la carte ?8 entrées’ que nous 
proposons (et qu’il devra réaliser pour utiliser les Ilogiciels SSTV et FAX). 
Cette carte est à l'adresse &FRFF. C'est cette adresse qui sera lue au lieu de 
la ligne *BUSY’. En assembleur, celà donne: 


LD BC, &FBFF 
IN À, (C) 
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Après ces 2 instructions, les 8 bits de l'entrée sont dans l’accu, 
Ensuite, il suffit de masquer par un AND ou d'effectuer une rotation 
pour récupérer le bit désiré... 


La sortie logique du ‘démodulateur* CK ou RTIY pourra etre reliée à 
l’un des bits restés libres (il y en a 4) de la carte ?B entrées’, 


Pour la SS7TV et le FAX, on utilise donc une carte d'entrée sur laquelle 
est couplé un convertisseur ‘analogique-digital?, 


La carte 8 entrées est on ne peut plus simple, Il est à noter que l’on 
aurait pu faire mieux et proposer une carte 8 entrées-sorties organisée, par 
exemple, autour d'un PIO (Coupieur parallèle). Là encore,la simplicité et le 
faible cout de revient ont été recherchés. 


Le décodage d'adresse de cette carte est effectué par un couple bien 
connu 741630 / 74632, Ceci permet d'avoir une carte qui ne répond qu'à une 
seule adresse mémoire, ici &FRFF. Le signal produit valide un ‘latch’ 7415244 
qui place nos entrées logiques sur le bus de données du micro. On dispose donc 
de 8 lignes d'entrée que l’on peut lire facilement, par BASIC (voir le programme 
de réglage de la carte *SSTV’) ou en assembleur (voir ci-dessus}, 


Ces 8 entrées recevront les signaux issus du convertisseur analogique 
digital, 11 facile d'imaginer la modification de programme permettant au lecteur 
possédant déjà une carte 8 entrées-sorties, de se passer de la réalisation de 
notre carte ’B entrées’. ATTENTION, cette modification sera plus difficile si 
votre carte est organisée autour d’un PIG puisqu'il faudra d’abord mettre ce 
dernier en configuration d'entrée. 


La conversion analogique/digitale du signal SSTV (au FAX) passe par 3 
étapes: 


i- Amplification et écretage du signal, permettant de s'affranchir des 
possibles variations de niveau dues au fadding. C'est le role du LM 1458, monté 
en amplificateur, et des 2 diodes zéner écretant le signal à + ou - 3,6V. 

2- Démodulation via une PLL dont La boucle de capture est ajustée 
finement au moyen d’un potentiomètre multitours, pour autoriser le passage des 
fréquences limites de synchro et du noir. 

3- Amplification et alignement du signal par l'intermédiaire d'un 
transistor, Sur son collecteur, on dispose d’un beau signal *vidéo”, 

&- Un ensemble de comparateurs chargés d'effectuer la ségrégation noir, 


gris, blanc, synchro. 
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Si les signaux représentatifs des différentes teintes n'ont pas été 
filtrés, il n'en est pas de meme pour la synchro... 


Notons que nous avons limité à 4 teintes... On aurait pu monter 8 
comparateurs et travailler en mode d'écran 0... Nous vous soufflons l'idée ,si 
vous voulez l’exploiter ! 


LES REGLAGES 


Les réglages de cette carte sont un peu délicats, 11 faut bien ajuster 
le niveau d'entrée, pour qu’il reste compatible avec les tolérances du NE és, 
et régler la boucle de capture de ce dernier afin que tout le signal {et rien 
que lui} puisse passer. L'oscilloscope serait bien utile mais, sans lui, une 
bonne dose de patience fera l'affaire. Il est préférable d'utiliser des 
potentiomètres ‘multitours*... 


PROCEDURE DE REGLAGE DES COMPARATEURS 


Le réglage des comparateurs sera effectué avec l'assistance de 
l'AMSTRAD. Il suffit de saisir le petit programme de réglage {décrit en prime) 
et de brancher l'entrée de la carte à la sortie BF de l'ordinateur. 


Après avoir lancé le programme, un octet apparait, en binaire, à 
l'écran. Une double tonalité (1200 / 1500 Hz} est émise. 11 faut alors régler 
P1 afin que le bit 0 {le plus à droite) oscille entre O et 1 au rythme de ia 
tonalité PF. Dès que ce réglage est effectué, on peut passer à l'étape suivante. 
Un nouvel appui sur une touche provoque 1e changement des tonalités émises par 
L'AMSTRAD, Il faut alors régler P2 pour que ce soit le bit { qui ‘clignote’ 
entre Cet i. Répéter l'opération jusqu'au bit 3 (correspondant au réglage de 
P4), 

Les #4 bits de poids fort (les plus à gauche), ne sont pas utilisés et 
restent à Î. 


En résumé: 


Pi règle la synchro {5Y) 
P2 règle ie gris foncé {Gr} 
P3 règle le gris clair {GC} 
Pé& règle le blanc (BL) 


üctet: Lo ÿ  ÿ 3 BL GC GF 5Y 
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19 REGLAGE CARTE COMNFARATEURS 
0 ‘ 

40 

40 DATA 41,51,%7,29,54,56,%H2,2 
30 CLS 

65 FOR nz1i TO 4 

70 READ a,b 

80 ca 

90 SOUND 1,c,15,15 

100 LOCATE 1,1 

110 FRINT BINE CINF (&FERFF) ) 2: FRINT: FRINT:F 

RINT'Ftsn 

120 IF cea THEN cæeb ELSE ca 
30 IF INÉEY#<5"" THEN 150 

140 GOTO 90 

150 NEXT n 
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Valeurs des composants pour les différents ?SHIFT 


170 Hz Ci 39n RI 130 
25 Hz Ce Jin RE 63k 
850 Hz C3 27n RS dék 


Prendre des composants aux tolérances les plus strictes, 


Les inverseurs | à $ sont ceux d'un CD 4049. 

L'alimentation du CD 4049 se fait ainsi : +5V en i, (er 8 

Le commutateur de shift et les composants CZ, C3, R2, RG, 
peuvent etre omis si l’on veut recevoir le 170 Hz seulement, 

Le XR 2211 est sensible à une entrée de ZmV, 

Di et D4 clignotent au rythme du MARK et du SPACE. 

D? doit s'éteindre lorsqu'on est bien calé. 

Le seul réglage consiste à ajuster la fréquence centrale du VCD, 
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AO! W4p=5S9 
110 = #9 
di=£9 
d1"0=29 
dzz'0 = 19 


SANOHHNU AO! "Y0d = Zd 
A1 °#0d4= Hd 


AO! = pà 
AO! = £4 
A1 =7à 
AZ'8 = 134 


#9 NIV NGGHIE 





TI NC = 1 
g31 pag = d 
L3S IN=û 
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INTERFACES MAGECO 


Nous avons pensé à tous nos lecteurs qui ne construisent pas, Voulant 
que ce livre soit aussi complet que possible, nous avons décidé de décrire les 
possibilités offertes par deux cartes commercialisées, Il s’agit de l'interface 
8 entrées-sorties et de la carte 8 entrées analogiques de MAGECO. Ces cartes 
sont disponibles en particulier chez 'ORDIVIDUEL’ à Paris. Leur bon rapport 
qualité/prix nous à paru etre un argument favorable, c’est pourquoi nous leur 
avons attribué une application... 


LA CARTE 8 ENTREES-SORTIES 


Elle est organisée autour d'un 7415344 (8 buffers), pour la partie 
‘entrées’, et d'un 7416273 (8 bascules D), pour la partie ‘sorties’, Par 
conséquent, elle sera facile à programmer. Le décodage d'adresse permet de 
sélectionner 4 emplacements différents, dans l’espace des entrées-sorties, ce 
qui garantit une certaine compatibilité avec d’autres cartes, Du très classique 
à ce niveau: 741530, 741532, 741604, La sélection de l'adresse se fait par un 
couple d'inverseurs agissant sur les lignes d'adresses AZ et A4, 


Munie d’un connecteur, la carte vient se monter directement sur le bus 
de sortie de L'AMGTRAD. Ce connecteur est situé coté composants. De l'autre coté 
de la carte, on trouve un connecteur ‘male’ permettant la connexion d'une autre 
interface (ou du DRIVE pour le CPC 464). Une remarque, sur le 664 et le 6128, le 
montage de ia carte sur le connecteur d'extension impose de surélever 1°AMGTRAD. 
Ce petit défaut de conception disparaitra si vous utilisez une courte nappe 


rallonge de bus, 


Phuysiquement, les connexions de la carte vers le monde extérieur 5e 
font par l'intermédiaire d’un bornier à vis, qui se révèle bien pratique lors 
des expérimentations. 
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L'état des entrées est visualisé sur des diodes électroluminescentes 
rouges, celui des sorties par des diodes vertes, Une entrée en l'air correspond 
à l'état let, la diode qui lui est associée étant alimentée à partir du + 3, 
se trouve éteinte. La présence d'un 0 (masse) sur l'entrée ailumera a diode. 
Pour chaque ligne, l'entrée vers le 7416244 s'effectue à travers une résistance 
de 1 K. 


Les diodes associées aux sorties s'allument pour un état { (haut) de la 
ligne correspondante. La sortie s'effectue sur le collecteur, ouvert, d'un 
transistor, l’espace émetteur-collecteur du transistor étant shunté par une 
diode. Au transistor, on pourra relier une charge qui sera commandée par la 
saturation de celui-ci. Cette charge devra assurer un courant maxiamal de {À 
dans le transistor. Un alimentation externe, pouvant atteindre au maximum 20, 
fournira la tension au circuit extérieur. Si la charge est selfique, cas d'un 
relais de commutation, il est indispensable de la shunter par une diode {genre 
IN41489, par exemple), 


Sa programmation est très simples: 11 suffit d'envouer le profil binaire 
(ou traduit en héxa, ou décimal) de l'octet à présenter sur les lignes de 
sortie. Cette opération est réalisée par un OÙT en BASIC où par la céquence 
suivante, en assembleur: 


LD EC, OFFEDH adresse carte 

LD A,xx “x octet à envoyer 
QUT (C),À opération de sortie 
RET retour 


En BASIC, on écrira OÙT &E0, xx (ou OUT &FRED, xx) 
Si on souhaite mettre les bits À et 7 à Î let seulement eux! on fera: 
QUT &E0, 142 (= 10000100) 


En entrée, pas de difficulté: un INF en BASIC ou la séquence assembleur 
suivante: 


LD BC, OFBEDH adresse carte 
IN A, (C) lecture du port 
RET retour 


Vous voulez reconier sur les sorties l'état des entrées ? Rien de plus 
simple... .OÙT &ED, INPF(&EO) en BASIC et, comme vous avez compris la manoeuvre, 
vous saurez quoi écrire en ASGEMELEUR, On ne va pas tout vous dire ! 
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UTILISATION EN RTTY 


En cablant la sortie du démoculateur sur une des lignes d'entrée de la 
carte, on pourra libérer le port imprimante, utilisé à l'origine par le 
programme de réception. La partie réception du logiciel devra etre modifiée. 


Au chapitre ‘Utilisation d'une carte d'entrée’, nous expliquons comment 
modifier le sous-programme de réception (et les modifications correspondantes du 
BASIC), Nous les rappelons ici, dans le cas de l'utilisation du bit 7 de la 
carte MAGECO. 


LE BC, OFFEUH Adresse carte MAGECO 

IN À, (C Récupère l’octet en entrée, 
NGP 

RLA Met le hit 7 dans la Carry 
RET Revient. 


Seule la ligne 1720 du BASIC sera modifiée: 
..… Ot,E0,FR,ED, 78,00 


Notons qu'il est possible de cabler une des lignes du port de sortie 
sur le relais émission-réception, ce qui permet de télécommander par le 
programme, le fonctionnement de l'émetteur. Dans ce cas, Île passage en émission 
et en réception sera commandé par une ligne de FASIC, placée avant l'appel des 
routines correspondantes. 


Bien des applications sont envisageables avec cette carte 8 E/S. Citons 
en vrac: la commande du relais du rotor d'antennes, la commande de Scanning du 
récepteur (si celui-ci le permet}, la mise en veille automatique de la station à 
une heure donnée etc. 


LA CARTE 8 ENTRÉES ANALOGIQUES 


Pourquoi une carte analogique ? Pour permettre à l'ordinateur de saisir 
des données telles que tension, température, niveau d'éclairement, vitesse du 
vent etc. Toutes ces données, à caractère analogique, seront converties en 
informations digitales par un convertisseur ’analogique-digital?, 


L'ame de la carte est justement ce composant: Île convertisseur 
analogique-digital ADC 809, C'est un circuit intégré à 26 broches effectuant ja 
conversion par le procédé des ‘approxiamations successives’, Avec ce procédé, le 
calculateur fait varier une tension de référence et compare la grandeur à 
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mesurer à cette tension. Lorsque le résultat de la comparaison est ‘vrai (bon), 
la grandeur, codée sur 8 bits, est disponible en parallèle sur les sorties de 
l’ADC 809. 


Le temps de conversion détermine les performances et les limitations du 
circuit. 61 l’on voulait convertir une image vidéo, il faudrait un composant 
extremement rapide (dont le prix se chiffre par centaines de francs), Dans notre 
cas, l’ADC 809 permet toutefois des mesures honorables, 


La carte est réalisée en époxy double face, à trous métallisés. Les 
8 entrées se font par un bornier. Le Ov et la tension de référence (ici 5V) sont 
également disponibles sur ce bornier. Un connecteur relais permet d'utiliser la 
carte en liaison avec une autre, par exemple la carte 8 E/S... 


Coté électronique, on distingue, outre le convertisseur, les circuits 
du décodage d'adresse. Ce décodage place la carte à un emplacement programmabie 
parmi 4, grace au jeu de Z interrupteurs. 


La carte est programmable en BASIC, Dans ce cas, il sera impossible de 
bénéficier de toutes les performances de l'ADC 809, à cause de la lenteur du 
langage. Une programmation en langage machine résout le problème... Le tenps de 
conversion entre deux mesures est évalué, dans ce cas, à 100 microsecondes, 11 
est donc possible d'échantillonner des fréquences BF (traitement de la voix, 
analyse de signaux etc.). 


Programmer la carte est un jeu d'enfant. On dispose de 8 entrées: il 
suffit de désigner celle à laquelle s'adresse la mesure, par son numéro 
physique. La lecture du résultat est tout aussi simple... Voici un court 
exemple, par lequel on lit l'entrée numéro 3, 


GUT (&FRFB),3: A=INPUT (&FBFO): PRINT A 


Nous n'avons pas placé de boucle de temporisation entre la demande de 
mesure (OUT) et la lecture du résultat (INP), le BASIC étant suffisamment lent! 


Le résultat obtenu est un nombre codé sur un octet, donc de D à 255, 
Pour établir la relation qui existe entre ce nombre et la tension réellement 
présente sur l'entrée considérée, on tient compte de la valeur de la tension ce 
référence (ici 3V). 6i la tension mesurée est à 5V, on obtient 9. Si elle est à 
OV, on lira 255, 

La relation est donc Tension = Mesure # V Ref/255. 

Ici on peut écrire U=M#5/255 ou U est la tension réelle et M la mesure. 
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ATTENTION, toutes les mesures doivent etre ramenées dans la gamme OÙ à 
SW, sous peine de détuire le convertisseur, En alternatif, car il est possible 
de mesurer des tensions alternatives, la tension maximale autorisée sera de 5V 
crete à crete, 


En langage machine, 11 faudra incorporer, entre la demande de mesure et 
la lecture du résultat, un délai d'environ 100 microsecondes,,, pour que la 
mesure ait le temps de s'effectuer, Celà donnera: 


LD EC, OFBFEH Âdresce de la carte 

LE À, 3 Sélection entrée No 3 
GUT (C), À Demande de mesure 

JSR TEMPO Sous-procramme d'attente 
IN À, (©) Lecture du résultat 

RET Retour 


La précision du résultat sera de + ou - 20 mV, En effet, SV/255 # ZOm 

On pourra, lorsque la rapidité n'est pas un impératif, effectuer dés 
mesures répétitives, dans ie but de diminuer la dispersion et d'améliorer la 
précision. On prendra pour résultat, la moyenne établie sur les N mesures, Ceci 
pourra s'écrire, toujours pour l'entrée No d: 


10 #=0 Initialise la moyenne 
20 FOR 1 = 1 TG 20 Nombre de mesures 

J0 GUT (EFEFE),3 Demande de mesure 

4O A=INP (&FRFE) Lecture du résultat 

50 M=N+A Totalise 

&0 NEXT Mesure suivante 

70 PRINT M=M/29 Imprime valeur moyenne 


Rappelons que, pour gagner du temps en FASIC, il serait préférable de 
mettre toutes les instructions sur une meme ligne... 


11 serait difficile de citer toutes les applications possibles d’une 
carte analogique comme celle-ci: régulation de température (capteur thermique), 
surveillance d’un local (capteur optique), études diverses {courbes de décharge 
d'un condensateur chimique, d’une batterie d'accumulateur...i. 
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QUELQUES SUGGESTIONS PARTICULIÈRES EN RADIO 


Les deux cartes, utilicées ensemble, pourront commander la station 
radio et ce, en absence de l'opérateur, Nous sucgérons un veilleuwr de bande 
automatique et un système d'orientation des antennes, Dans les deux cas, il ect 
nécessaire de posséder un tupe de matériel particulier ou alors, de faire des 
adaptations sur le matériel existant, pour le rendre utilisable, 


La veille automatique. 

Si vous disposez d'un récepteur disposant d’une commande de scanning, 
il vous sera possible de surveiller une bande de fréquences en votre absence. 
L'un des auteurs de ce livre, possédant un MULTI 7508 (E/R VHF de FIDK), a 
utilisé l'ordinateur et ses deux cartes pour surveiller les variations de 
propagation sur 144 MHz, tout au long d'une journée, pendant ses heures de 
travail. ATTENTION, ames sensibles s'abstenir ! Il est parfois très rageant de 
constater, en rentrant à 19 heures, que l’on a raté une superbe ouverture ! 


à ce stade, il existe deux solutions: une simple, ne faisant pas appel 
à la carte 8 E/S: on ‘écoute’ simplement une seule fréquence (balise où répéteur 
lointain). La sortie du ©S-METRE’ est reliée à une entrée de la carte 
analogique. 


L'autre est plus complexe et fait appel aux deux cartes, Le principe 
retenu est le suivant, La commande de scanning du récepteur est reliée à la 
carte 8 E/6, Cette liaison peut s'effectuer directement en parallèle sur les 
poussairs UP? & DOWN’. La sortie du galvanomètre *S-MÊTRE’ sera reliée à une 
entrée de la carte analogique. Dans certains cas, il faudra peut-etre prévoir un 
amplificateur de tension, la carte n'étant sensible qu’à 70 mv, 


Le récepteur sera placé sur une fréquence, marquant le début de la 
bande à écouter, le programme se chargera de faire varier cette fréquence, La 
suite, vous la devinez... On envoie une impulsion sur la commande ‘UP’, par 
l'intermédiaire de la carte 8 E/6: la fréquence est modifiée (de 100 Hz où 5 
KHz, tout dépend du ‘pas’ de balayage de votre appareil et du mode, ELU ou FM, 
que vous avez sélectionné), Il suffit alors de mesurer la tension en sortie du 
'S-METRE* de manière répétitive, pendant une minute par exemple, de faire la 
moyenne des mesures, et de mémoriser le résultat dans un tableau, On attend 
alors quelques minutes, et on recommence l'opération sur une autre fréquence, 
après avoir fait avancer (par la commande de scanning et la carte 8 E/S) le 
récepteur d'un pas. Une fois arrivé au bout de la bande (ou du segment de bande 
à surveiller), on commande le scanning en sens inverse... 


Pour dépouiller les résultats, il suffit d'un programme bien fait, On 
connait l'heure de début d'observation, On à déterminé le nombre d'incréments en 
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fonction de la longueur de la période d'observation. Ün a programmé les 
variations d’incréments en fonction de la largeur de bande à surveiller. I! 
suffit d'avoir rangé tous les résultats dans un tableau, AÂu besoin, on peut 
sauvegarder, de temps en temps, ce tableau sur disquette ou cassette, et 
reprendre les observations... [1 est meme possible de sortir tous ces résultats 
sur imprimante, sous forme graphique... Quoi de plus simple que cette veille 
automatique ? 


En extrapolant le principe précédent, il est permis de concevoir un 
programme capable de visualiser à l'écran, sous forme graphique, l'activité 
d'une bande. On obtient alors, à bon prix, un récepteur panoramique. En jetant 
un coup d'oeil sur l'écran de temps en temps, entre deux soudures, on aura vite 
un apercu de l’activité qui règne sur la bande... Le seul inconvénient dans tout 
celà est que, il faut avoir déterminé auparavant, quelles sont les fréquences 
parasites générées par l'AMSTRAD, pour ne pas les confondre avec des émissions. 
Le logiciel sophistiqué, et bien concu, n'affichera pas les raies 
correspondantes... 


Grientation des antennes 

Notre propos n'est pas de décrire une interface d'asservissement de la 
position des aériens, mais une astuce simple, tenant compte des possibilités 
offertes par certains rotors d'antennes, munis d'un galvanomètre indicateur de 
position, C'est le cas, par exemple, des KR 600, 800 etc, 


La carte 8 E/S aura deux sorties reliées, à travers des relais s'il y a 
lieu (c'est plus prudent}, aux commandes de sens de rotation du moteur. La carte 
analogique sera utilisée pour lire la tension du galvanomètre. Le reste est 
affaire de logiciel et... d'astuce (ce n'est pas très technique, répétons-le !}, 


Le programme devra intégrer une table de correspondance 
Tension-Azimut”. On peut envisager d'aller plus loin: les indicatifs des 
stations les plus souvent contactées (ou écoutées), seront également mémorisés, 
11 suffira alors d'entrer une direction au clavier (ou un indicatif), pour que 
l'AMSTRAD positionne, avec une précision relativement bonne, l’aérien dans la 
direction. On peut meme envisager de coupler ce système au programme au 
programme LOCATOR.., On donne une direction: elle est convertie par la table 
d'équivalence, en tension. Le moteur est commandé dans le bon sens jusqu'à ce 
que le galvanomètre indique au programme, par l'intermédiaire de la carte 
analogique, la tension voulue, 


Toujours dans le meme ordre d'idées, on peut coupler le récepteur... à 
l'antenne {c'est déjà fait !) mais par l'intermédiaire du S-METRE et du ROTOR, 
Bien sur, dans la chaine, on retrouvera les cartes analogique et 8 E/S, Il sera 
alors facile de suivre une station mobile en crientant toujours l'antenne dans 
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Enfin, tous ceux qui craignent les effets néfastes du vent sur leurs 
aériens à grand gain (aroupement d'antennes ou bean décamétrique) pourront 
associer les deux cartes, l'AMSTRAD, et une mini-station météo, capable de 
mesurer la force et la direction du vent, On mesure la vitesse. Si elle dépasse 
pendant un certain temps, choisi à l'avance {il ne faut pas transformer 
l'antenne en girouette !), pour s'affranchir des courtes rafales, a vitesse 
limite supportée par l'aérien, on commande le moteur pour placer les antennes 
dans le lit du vent. L’anémomètre sera couplé à Îa carte analogique, a 
girouette à la carte 8 E/S (ou à la carte analogique, selon sa conception), les 
commandes de moteur et lecture de position comme indiqué ci-dessus. 


Par ces exemples, ou nous n'apportons pas de solution typique, en 
raison des différences trop importantes de matériel radio, nous avons voulu 
démontrer que, les cartes analogiques et d’entrée-sortie, peuvent occuper une 
place importante à la station, aux cotés de !l'AMSTRAD, La matériel MAGECO, que 
nous vous avons conseillé sans aucun souci publicitaire, à été choisi en raison 
de son excellent rapport qualité/prix qui devrait ravir tous ceux qui ne veulent 
pas se lancer dans des réalisations ‘Hard’. Asegciées autx) Ilogiciel(s) 
approprié(s), elles transforment l'AMSTRAD en opérateur supplémentaire... 
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CONCLUSION 


Nous espérons avoir montré au lecteur avide de communication, Que 
L'AMSTRAD se prete très bien à ce genre d'applications, La liste de logiciels 
procosés ici n'était pas exhaustive: bon nombre d'entre-vous en découvriront 
d'autres. Le langage machine n'est pas un point de passage obligatoire crate à 
la rapidité du BASIC de IL'AMSTRAD, mais reste nécessaire pour accomplir 
certaines taches, 


D'autres domaines pourraient etre expiorés. L'utilisation de la 
sunthèse vocale remplacera l'opérateur pour lancer appel, Ceci pourra se faire 
au mouen d’un synthétiseur vocal bati autour du MEA 0000, plus performant pour 
nous francais que le SFO 256 des anglos-saxons. 


Le crayon optique, au moyen d'un logiciel approprié, sera utilisable en 
télévision d'amateur, dévelopoant ainsi une nouvelle forme de dialogue ! | 


Ne pas oublier !l'extreme puissance de calcul de l'ordinateur, qui 
deviendra un précieux auxiliaire pour tous ceux qui créent leur matériel, [De 
meme, un logiciel de poursuite de satellites, couplé à une carte d'entrée-sortie 
permettra aux passionnés de se consacrer au trafic avec un maximum d'efficacité, 


L'avenir est aux transmissions numérisées, et il apoar 


En 
amateurs de communication d'explorer au maximum ce domaine... au mouen de 
l'AMSTRAD, bien entendu : 
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ANNEXE 


Pour nos lecteurs qui découvriraient le monde fabuleux des ondes 
courtes, à la lecture de cet ouvrage, nous décrivons ci-après quelques uns des 
procédés utilisés en émission, ‘amateur’ ou ‘générale’. 

Nous nous permettons également de vous suggérer quelques critères de 
choix pour un récepteur. 


LES PROCEDES DE TRANSMISSION 


C'est, très certainement, le mode de transmission des signaux le plus 
fiable qui soit, car il permet, avec des moyens relativement simples, de 
transmettre l'information avec un maximum d'efficacité. L'émetteur est très 
simplifié, par rapport aux émetteurs ‘phonie’ (surtout les PLU), transmettant la 
parole et, à la réception, les effets des différents brouillages ont peu 
d'incidence, 

L'émission s'effectue, en général, par découpage de l'onde porteuse, ce 
qui garantit un maximum de puissance avec un minimum de moyens, À la réception, 
le matériel pourra etre simplifié à l'extreme mais nécessitera la présence d'un 
opérateur spécialement entrainé... où d'un AMSTRAD pourvu des iaogiciels de ce 
livre... 

Le code inventé par Samuel MORSE ect le suivant: 


A 7 E Sr 

C Fee D Ses 

E : F - 

G Le H : 

I Le J = 

K —— L = 

M = N D 

ü ——— P —— 

û _. R su 

£ T = 

U - V ds 

H —— *X ee 

Y SEE 1 EE 

D _--— Î TE 

2 Due 3 ss 

4 : 5 ss 

ô se 7 Ses 

8 nn 9 Gus 

= DRE ? _— 
192 / Fi e ERREUR dues sas 


En suivant des cours de lecture au son, ou en utilisant le logiciel 
DIDMORSE, décrit dans ce livre, le lecteur pourra apprendre à décoder les 
émissions en télégraphie MORGE. 


LE RADIOTELETYPE (RTTY) 


Ce mode de transmission permet également d'obtenir une grande 
efficacité tout en offrant, à l'utilisateur la possibilité de conserver, sur 
papier, une trace des messages recus. 

Techniquement parlant, il est possible de dire que le RTIY est une 
transmission sérielle sur 7 bits respectant un code appelé code BAUDOT (du nom 
de son inventeur), 


Dans ce code, chaque caractère est composé d'un bit de départ (START, 
de 5 bits de données et d'un bit de fin (STGP). 

Avec 5 bits de données, il est possible de coder 41 caractères. La 
vitesse de transmission est variable, couramment de 45,45 Bauds {amateurs} à 110 
bauds. La vitesse la plus répandue dans le milieu professionnel est le 55 Pauds 
ce qui donne une durée du bit égale à Z0ms. Ces bits sont appelés ’moments”, 


Les deux états, haut ou bas (0 où 1}, on dit MARK où SPACE, sont codés 
par deux fréquences dont l’écart est appelé SHIFT. 
Si le MARK est à 1275 Hertz, on aura comme valeur de SPACE: 
1445 Hz pour un shift de 170 Hz 
1700 Hz pour un shift de 425 Hz 
2125 Hz pour un shift de 9350 Hz 
Le démodulateur transformera ces signaux modulés en états logiques 0/1. 


Le bit de poids faible du caractère est émis le premier, de suite après 
le bit de START. Le bit de poids fort précède le bit de STGP, Ce bit de STOP est 
différent des autres en ce sens qu'il dure plus longtemps: 1,5 moment, 

Un caractère spécial permet le passage du mode ‘LETTRES’ au mode 
CHIFFRES”, 
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Voici le code PBAUDOT utilisé: 


LETTRES CHIFFRES 


RETOUR CHARIOT 
SAUT DE LIGNE 
MODE LETTRES 
MODE CHIFFRES 
ESPACE 


â = 
E 7 
C : 
D + 
E 3 
F E 
G 4 
H H 
I 8 
J sonnerie 
K { 
L } 
M : 
N s 
0 9 
P 0 
Q Î 
R 4 
S ? 
T 5 
U 7 
V = 
W 2 
X / 
Y b 
1 + 


CODE BAUDOT 
11000 
10011 
01110 
10010 
10000 
10110 
Diüii 
00101 
01106 
11010 
11110 
01001 
00111 
00110 
00011 
Di101 
11101 
01010 
10100 
00001 
11100 
gitil 
11001 
10111 
i0iüi 
10001 
00010 
0i000 
1iiii 
{101 
0000 


VALEUR DECIMALE 

3 
25 
14 
9 
1 
15 
2b 
20 
6 
11 
15 
18 
28 
12 
24 


7 
ra 


33 
i0 

5 
16 

7 
30 
19 
29 


3 
PA 


{7 
B 


2 


3i 
37 
à 


LE FAC-SIMILE (FAX) 


Ce procédé permet d'émettre des documents ‘papier’, tels que cartes 
météo, photos etc. À sa source, des machines mécaniques, culindres tournants sur 
lesquels sont fixés, d'un coté le document à émettre, de l'autre la 
feuille pour la réception, 


L'analyse de l'image est faite par un élément photo-sensible 5e 
déplacant le long du cylindre pendant la rotation de celui-ci. 

Ï n’y a pas de synchronisation entre l'émetteur et le récepteur, 
pendant toute la durée de la transmission. Au début seulement sont transmis des 
signaux de mise en phase. Une rigoureuse stabilité des deux appareils est donc 
indispensable. 

Le paramètre appelé ‘module de coopération’ est fonction de la vitesse 
linéaire de déplacement de l'élément photo-sensibie, 

Plusieurs vitesses de rotation du cylindre sont en vigueur, la plus 
répandue étant le 120 tours/minute, On trouve aussi du 189, 90, 60 tours/mn. 


La transmission radio de ces signaux s'effectue par modulation en 
fréquence d’un signal BF. Le noir est codé par une fréquence de 2300 Hz et le 
blanc à 1500 Hz, 

La transmission d’un meme document dure plusieurs minutes: entre 6 et 
10 minutes aux vitesses les plus courantes, 


L'ordinateur ne permettra pas d'obtenir la meme résolution d'image que 
celle obtenue avec les machines mécaniques... 

Il est prérable de démarrer la réception sur les signaux de mise en 
phase. 


LA TELEVISION À BALAYAGE LENT (SSTV) 


Contrairement aux procédés décrits ci-dessus, la SSTV n'est 
pratiquement utilisée que par les radioamateurs, Grace à elle, il est possible 
de transmettre des images, issues d'une caméra vidéo, à très longue distance. En 
effet, contrairement à la télévision conventionnelle, la SSTV n’occupe qu'une 
bande passante très faible, ce qui permet de transmettre les images par le canal 
d'un émetteur normal, 

Le revers de la médaille est que, les images transmises, ne peuvent 
etre animées: une image demande 7 secondes. 


Pour coder les signaux qui modulent l'émetteur, on utilise une bande ce 
fréquences s'étendant de 1500 Hz, pour le noir, à 2900 Hz pour le blanc, Les 
signaux sont synchronisés par... une sunchro ligne et une sunchro trame. 
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La fréquence de codage des signaux de sunchro est de 1200 Hz, La durée 
de la synchro ligne est de Sms, celle de la sunchro trame de J0ms. 

Une ligne image dure environ bbme. 

L'avantage de ce procédé est que les images, simples signaux BF, 
peuvent etre enregistrées sur cassette et revisualisées par la suite: pas besoin 
de magnétoscope ! 


Voici donc, résumés en quelques phrases, les différentes 
caractéristiques des procédés de transmission décrits dans cet ouvrage. 


LE CHOIX DU MATERIEL 


Les logiciels proposés dans cet ouvrage, ne pourront donner le meilleur 
de leurs possibilités que s'ils sont exploités en conjonction avec un bon 
ensemble de réception. : 

Par ensemble de réception, on entend le récepteur mais aussi l'antenne. 


L'ANTENNE 

L'antenne est un élément essentiel de la station de réception, Sans une 
bonne antenne, il est impossible d'obtenir une bonne réception. Celle-ci devra 
etre située le plus haut possible et dégagée, autant que faire se peut, des 
sources de perturbations: lignes électriques,  ventilations mécaniques 
d'immeubles etc. 

Pour la réception seule, une antenne ‘long fil’ pourra suffire dans la 
plupart des cas. 11 est également possible d'utiliser une antenne directive, qui 
a l'avantage de présenter un certain gain et d'éliminer les émissions 
perturbatrices, et l'inconvénient de son encombrement... 

Une antenne verticale multibandes fera également l'affaire et donnera 
de bons résultats. 

Par contre, et nous insistons sur ce point, les antennes actives seront 
à proscrire car leur amplificateurs à large bande récupèrent tous les parasites 
générés par le micro-ordinateur. Un simple bout de fil à l’intérieur de Ja 
pièce présentera les memes inconvénients. 
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LE RECEPTEUR 


Le récepteur est l'élément principal de la station: Son choix sera 
déterminant... Il va sans dire que ce choix sera guidé surtout par les 
possibilités financières de l'acquéreur. 

Le prix des récepteurs modernes va de 3000 à plus de 20000 Francs, Leur 
conception et les options dont ils disposent justifient les différences. 

Les récepteurs orientés ‘radiodiffusion’ sont à proscrire car leurs 
performances, suffisantes pour la réception de stations ‘broadcast’ lointaines, 
se dégradent rapidement pour la réception de ‘trafic’. 

La réception des signaux ATTY, FAX, SSTV et meme CH, impose la présence 
de filtres d'excellente qualité (filtres à quartz de préférence) et une 
stabilité rigoureuse. 

La préférence ira aux récepteurs synthétisés équipés d'un affichage de 
fréquence de précision (affichage digital}. 


Certains diront que les récepteurs actuels se ’gadgétisent’, à cause 
des nombreuses commandes dont ils disposent, Pourtant, quelques mémoires en 
réception sont bien agréables à utiliser, surtout si on peut les balayer 
rapidement pour retrouver (ou surveiller) la fréquence d'une station qui n'émet 
pas en permanence. 

De meme, le PET (Pass Band Tuning) permettra d'éliminer les 
perturbations, ce qui améliorera la réception dans les modes qui nous 
intéressent. 

Le récepteur sera capable de démoduler AM/CW/LU, par contre la FM 
n'est pas utilisée en décamétrique. C'est seulement si vous désirez utiliser le 
récepteur avec un convertisseur de fréquences (pour écouter les VHF/UHF) que 
cette option pourra vous servir. 

Un atténuateur d'entrée, où un gain HF réglable, n’est pas un gadget. 


Sans soucis de publicité, nous citons ici quelques modèles de 
récepteurs répandus... parmis les moins de 8000 Francs. 


KENWOOD R6OG (ou mieux, R1000 hélas disparu) 
YAESU FRG 7700 

KENWOOD R2000 

ICOM ICR 71 

YAESU FRG 8800 


Il est souhaitable que le récepteur soit suffisament éloigné de 
l'ordinateur, surtout si l'antenne n'est pas performante. Avec Il'AMETRAD, les 
perturbations sont surtout virulentes sur les fréquences supérieures à 14 MHz, 
Une bonne prise de terre peut parfois arranger bien des choses, 
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ANNEXE I 


QUELQUES FREQUENCES POUR COMMENCER L'ECOUTE 


Pour nos lecteurs qui, à l’occasion de la lecture de cet ouvrage, 
découvriraient le monde passionnant des ondes courtes, nous listons ici quelques 
fréquences ou ils pourront trouver des émissions intéressantes à écouter, 


L’écoute des ondes courtes est passionnante mais ATTENTION, VOUS ME 
DEVEZ EN AUCUN CAS, ET SQOUS QUELQUE FORME QUE CE SOIT, REVELER LE CONTENU DES 
EMISSIONS QUE VOUS AVEZ ENTENDUES. 


LES BANDES * RADIGAMATEUR* 

En vertu de conventions internationales, les radioamateurs du monde 
entier disposent de bandes de fréquences réservées à leur usage. 

En ondes courtes, voici la liste de ces fréquences (en MHz): 


1,810 à 1.850 (avec des réserves) 
3,500 à 3.800 CN jusqu'à 3.600 

RTTY + ou - 20 KHz autour de 4,600 
7.000 à 7.100 CNW jusqu'à 7.040 

RTTY + où - 5 KHz autour de 7,040 
10.100 à 10.150 CN essentiellement 
14.000 à 14,350 CW jusqu'à 4,100 

RTIY + où - ÎG KHz autour de 14,090 
18,068 à 18.188 
21.000 à 21.450 CN jusqu'à 21.100 

RTTY + ou - 20 KHz autour de 21.100 
24,890 à 24,990 
28.000 à 29,700 CH jusqu'à 28.100 

RTTY + où - 50 KHz autour de 28.106 
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Il existe également d'autres bandes de trafic, en VHF et UHF, notamment 
les bandes de 144 à j46 MHz et 430 à 440 Mhz. 

Sur 144.600 on trouve, en particulier dans les grandes villes, du 
trafic en RTTY, L'absence de perturbations et la proximité des stations pourront 
permettre à l'amateur de mettre au point son installation... 


QUELQUES AUTRES FREQUENCES 

Les ondes courtes comptent beaucoup d'usagers et certaines fréquences 
pourront aiquiser la curiosité, où permettre de vérifier le bon fonctionnement 
des logiciels et interfaces proposés ici. Toutes les fréquences sont indiquées à 
un kilohertz près. 


Emissions RTTY 


METEO 


Les émissions météo sont codées. Reportez-vous à l'ouvrace de Joerg 
KLINGENFUSS *AIR AND METEG CODE MANUAL' pour en savoir pius sur ces séries ce 
chiffres et de lettres que vous allez recevoir. C'est assez intéressant... 

Les quelques fréquences citées sont actives fréquemment, et ont été 
recues, en particulier, aux heures (locales) indiquées. 

Les vitesses et shift utilisés sont de 50 Bauds et 650 Hertz. 


3,193 Praque 22,20 
4,013 Paris 31.15 
4,409 Bracknell (GE) 22,45 
5.740 Djedda (Arabie Saoudite) 21,45 
8.085 Moscou 22,25 
6.163 Paris 17.00 


AGENCES DE PRESSE 


Les agences de presse assurent la trançmission de leurs communiqués, 
dans le monde entier, en utilisant le Radiotélétuype (RTIYI et le code Baudot. 

Les vitesses et shift utilisés sont essentiellement le 30 Bauds et 
425 Hertz. 

Les textes sont transmis en Anglais, Francais, Espagnol, mails aussi 
dans des langues qui peuvent rendre le décodage impossible (Arabe etc.). Ne 
soyez donc pas étonnés si votre ordinateur affiche des suites de caractères 
semblant incohérentes..…. 

Transmettant sur plusieurs fréquences, selon la propaga 
heures du jour, les agences émettent pratiquement en permanen 
toujours sur les fréquences et aux heures iuidiquées Ci-dessous. 


tion et les 
CE mais pas 
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5.460 Rabat (Maroc) en 75 Bauds... 23,00 


5.840 AFP (Paris) 20.40 
3.839 ADN (DDR) 22.35 
6.960 Sofia (Bulgarie) 21.05 
6,972 AGERPRESS (Bucarest) 18.00 
6.984 Associated Press (Londres) 19.00 
7,806 TANJUG (Belgrade) 18.00 
8.022 AFP 20.00 
8.060 TASS (URSS) 23.00 
8.140 TASS 21.10 
9,396 AFP 19.00 
10.649 Associated Press 18.00 
12,313  TASS 17,45 
15.655 MAP (Maroc) 12.15 
18.668 AFP 14.930 
20.313 AFP 15.05 


EMISSIONS EN TELEGRAPHIE MORSE (CH) 


Les émissions en CW sont très nombreuses sur le spectre de fréquences 
radio, aussi nous ne vous indiquerons que peu d’entre elles, le choix étant très 
vaste. Signalons que beaucoup de stations (dans les bandes marines en 
particulier), transmettent des identifications en permanence, ce qui vous 
permettra d'ajuster votre matériel. La bande la plus propice est celle des 8 MHz 
qui a l'avantage d'etre ‘ouverte’ toute la journée. 

Leur origine n’a pas toujours été identifiée par les auteurs, 


2.680 Station Allemande Météo 23,00 
4,999 Station Météo 23,50 
6.929 Météo en Espagnol 10.45 
8.550 Saint-Lus (France) 8.30 


EMISSIONS EN FAC-SIMILE (FAX) 


Les émissions en FAX sont assez peu connues et présentent pourtant 
l’intéret d'obtenir, sur l'écran (ou papier}, des cartes météo et parfois, des 
photos. Toutes ne seront pas faciles à interpréter... 

En France, Bracknell (GB) et Paris sont les deux stations les plus 
faciles, et les plus intéressantes, à recevoir car elles transmettent des cartes 
de la situation météo sur notre région {au sens large). 
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2.618 Bracknell Soir 


3.289 Bracknell Jour/Goir 
4,248 Bracknell Jour/Soir 
8.040 Bracknell Jour/£oir 
4,047 Paris Soir 
8.185 Paris Jour 


Signalons également la station Francaise émettant sur 134 KHz qui, 
hélas, ne sera pas recue dans toute la France, mais fort bien en région 
Parisienne. Nous avons recu sur cette fréquence, depuis Rennes, de belles 
reproductions de photos METEOGAT, malgré le signal relativement faible. 


REFERENCES BIBLIOGRAPHIQUES 


La lecture des ouvrages suivants nous a permis de progresser assez 
rapidement avec notre CPC. Nous nous permettons donc de suggérer à nos lecteurs 
d'en faire l'acquisition (en fonction, bien entendu, de leurs besoins...), 

Précisons que les titres cités ci-dessous ne représentent en rien une 
liste exhaustive ou guidée par quelque mobile publicitaire... 


CONNAISSANCE DU SYSTEME 


- Le livre du FIRMWARE 


Edité par AMSOFT sous la référence SOFT 158, il décrit avec force 
détails toutes les routines du système, donne des informations sur la 
programmation des interruptions, les extensions RON etc. Faute de pouvoir citer 
ici son contenu, nous pourrions résumer en disant que c’est l'ouvrage de 
Référence pour le programmeur désirant découvrir les secrets de l'AHSTRAD. 


- Le FIRMWARE du disque 


Suite à l'ouvrage précédent, le SGFT 158a, offre la description des 
routines du DOS et donnera au lecteur l'occasion de mieux exploiter son Drive. 
Tout ce que vous voudriez connaitre sur la structure de CP/M et d'AMSDOS. Vous y 
découvrirez ainsi que le DOS supporte la gestion d'une interface série, ce qui 
n'est mentionné nulle part dans le manuel utilisateur... 


- La bible du programmeur (chez MICRO APPLICATION). 
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Traduit de l'allemand, comme le reste de la collection de cet éditeur, 
la bible détaille tous les secrets du CPC. La ROM est commentée, es variables 
système, les points d'entrée, le Hard, vous y trouverez la réponse aux 
questions, Sans doute nombreuses, que vous vous posez. Ecrit pour le 464, les 
utilisateurs des autres CPC u trouveront néammoins leur compte... 


- Le livre du lecteur de disouette (MICRO APPLICATION), 


Meme philosophie que la ’Pible du programmeur*,il décrit avec beaucoup 
de détails, le Hard et le Soft du disque. Vous u découvrirez comment lire où 
écrire directement un secteur, les secrets du controleur FDC 765 et un listing 
abondamment commenté de la ROM du DOS, 


- Le tour de l'AMSTRAD (CEDIC-NATHAN). 


Pour les lecteurs qui cherchent un complément au manuel utilisatuer de 
la machine, et qui sont perdus dans la jungle des titres des ouvrages parus à ce 
L J 
jour, ce livre leur offrira la possibilité d'approfoncir leurs connaissances, 


- Clefs pour AMSTRAD (PSI). 


Compilation de toutes les documentations existantes, et de beaucoup 
d'ouvrages publiés sur la machine, ce livre à le mérite (tout en restant 
sommaire) de proposer au lecteur une fouie de renseignements dans un minimum de 
place. Si votre budget ‘documentation’ est un peu serré... 


- Le livre du CP/M 3.3 et CP/M 3.0 (Micro Application). 


Pour le lecteur désireux de faire connaissance avec CP/M, ce système 
d'exploitation présent sur bien d’autres machines, nous conseillons cet ouvrage, 
qui en est un véritable mode d'emploi. C'est, à notre avis, un excellent 
complément à la documentation que doit posséder l'utilisateur de 1'AMSTRAD 
voulant évoluer. 


- Montages, extensions et périphériques (Micro Application), 


Des schémas de cartes, avec les implantations des composants et les 
reproductions des circuits imprimés, permettant de réaliser des entrées-sorties, 
conversions analogiques-digitales, RS 232, programmateur d'EPROM etc, Voilà un 
livre qui va ravir tous ceux qui savent utifiser le fer à souder et qui veulent 
offrir à leur AMSTRAD un environnement. 


Signalons, enfin, la revue ‘CPC’, mensuel des Editions SGRACOM, 
entièrement consacrée aux AMSTRAD: du Hard, des programmes utilitaires et des 
jeux, du BASIC, du PASCAL, de l'ASSEMBLEUR, et toutes les nouveautés concernant 
la famille des CPC. 
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QUELQUES QUESTIONS RELATIVES À CE LIVRE 


{- Comment avez-vous connu l'existence de livre ? 


Sense rs serre n en ensrenneeerensuesseseneesssssseuesessnnnssssssssunx 


Ress rsusssseauessseusasssnuse sssrsus sara nsransrasnxsmessnuuessuxs . 


tosnssunsssss …. saussssnsess tsrsrsesssseneeesusses tosersssssssss 
assises ensssseesmesensus ssurssssss . . aassss suassunsss 
ss. Ssonessesesssss Dasnnssunsemsessssssns Leurs seussss ss. ss Ci 


Sneesoussorsn sun sannnnnsenenusssususe vsssssess sausre : 
auessnsasessse vrouss Sranrasssumacsss nosex Srresssx CE] aranversunss 
ressens sssumsesssssmesssssenreeceus tornsecssasnrss sus Sssssssssss 


3- Quels sont les sujets qui vous ont : 


Le plus intéressé 7,.,,,,,,,, esse ecsessessuss RUE PTE DE ne 
Le moins Pr Tasse PT DIET UT Sassengietenass ira cirsionte 


Dans le but d'améliorer nos prochains ouvrages, retournez cette fiche, 
accompagnée d’autres remarques éventuelles, à l'éditeur. 


EDITIONS SORACOM 


BP 46 
33170 BRUZ 
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